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MINICOMPUTER  SOFTWARE  FOR  THE  NBS  STYLUS/COMPUTER  SYSTEM 
FOR  SURFACE  ROUGHNESS  MEASUREMENTS 


1.  Introduction 

A  thorough  description  of  all  the  software  used  at  NBS  for 
characterizing  surface  texture  is  given  in  this  report.  The 
description  includes  flow  diagrams  and  detailed,  annotated  listings  of 
machine  language  programs  for  step-calibrating  the  system,  for 
acquiring  digitized  surface  profiles  and  for  calculating  from  these 
profiles  important  parameters  and  statistical  functions.  Parameters 
and  functions  included  are  the  arithmetic  average  value,  mean  square 
value,  average  wavelength,  average  slope,  amplitude  density  function 
and  autocorrelation  function. 

The  report  was  originally  written  as  an  appendix  for  the  NBS 
Technical  Note,  "Evaluation,  Revision  and  Application  of  the  NBS 
Stylus/Computer  System  for  Surface  Roughness  Measurement."  However, 
due  to  its  size  and  specialized  content,  the  appendix  was  issued  as 
this  separate  volume. 
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This  appendix  contains  the  following  information  about  the 
computer  software  used  with  the  minicomputer/stylus  instrument  system: 

A.  Allocation  of  the  Interdata  Model  3  memory  during  use  by  the 
step/roughness  measurement  software, 

B.  Plow  diagrams  of  major  programs  or  routines, 

C.  A  memorandum  by  Philip  G.  Stein  (NBS)  which  describes  the 
properties  and  the  use  of  an  operating  system  he  developed 
for  the  Interdata  Model  3, 

D.  An  annotated  listing  of  all  the  step/roughness  measurement 
software  and  of  the  operating  system, 

and 

E.  An  instruction  set  listed  by  Op-code,  for  the  Interdata  model 
3  with  an  excerpt  on  instruction  word  formates  taken  from  the 
Interdata  Model  3  manual. 

The  detailed  information  about  the  computer  software  which  is 
given  herein  is  presented  so  that  the  reader  will  have  available  an 
actual  implementation  of  a  total  software  system  for  computerized 
surface  roughness  measurement.  Listings  of  the  software  in  machine 
language  should  be  of  use  to  the  reader  whose  minicomputer  memory  size 
is  limited  and  thus  is  unable  to  support  a  compiler  and  to  the  reader 
considering  the  implementation  of  parts  of  the  software  system  on  a 
recent  generation  minicomputer.  For  those  with  assemblers  and/or 
compilers,  the  flow  diagrams  and  listings  should  enable  the  efficient 
writing  of  necessary  programs.  The  incorporation  of  this  appendix  and 
motivated  by  the  desire  that  one  or  all  three  of  these  routes  be 
encouraged  in  every  possible  way.  Thus,  any  questions  pertaining  to 
the  software's  operation,  design  or  use  would  be  welcomed  by  the 
author . 

The  documentation  of  computer  programs  in  machine  language  is 
impossible  without  making '  reference  to  specific  equipment  and 
instruction  sets  'by  brand  name.  However,  no  judgement  as  to  the 
quality  or  suitability  of  the  equipment  discussed  here  has  been  made 
by  the  National  Bureau  of  Standards,  and  no  recommendation,  favorable 
or  otherwise,  should  be  implied  by  this  report. 

Hie  software  is  neither  as  elegant  nor  as  efficient  in  many  places 
as  I  would  have  desired.  This  statement  is  not  a  criticism  of  the 
work  contributed  by  others.  It  is  more  of  an  encouragement  to  the 
user  to  take  the  programs  as  they  stand  and  to  make  as  many 
improvements  as  his  time  allows.  The  software  is  however  a  system  of 
programs  which  has  passed  every  functional  test  conceived  to  check  its 
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operation.  As  described  in  the  body  of  the  report,  these  checks  have 
included  static  and  dynamic  checks  such  as:  (1)  If  step  data  goes 
from  an  ordinate  (a-c)  to  a  second  ordinate  (b-c),  is  the  calculated 
step  height  constant  and  equal  to  b-a  for  all  values  of  c  within  the 
data-range  of  the  computer?  (2)  If  the  slope  on  the  "left"  side  of  the 
step  increases,  does  the  step  height  decrease?;  and  (3)  Does  the  AA 
values  calculated  from  known  waveforms  correlate  with  analytically 
calculated  values? 

I  wish  to  acknowledge  with  thanks  the  many  contributions  to  this 
software  system  by  NBS  associates.  Their  advice  and,  in  many  cases, 
their  contribution  of  complete  program  listings  made  the  writing  and 
revising  of  the  system  software  a  much  easier  task.  Contributors  to 
the  software  were  Dennis  A.  Swyt  (DAS),  Philip  G.  Stein  (PGS),  Chris 
E.  Kuyatt,  (CEK),  Nils  Swanson  (NS),  Carol  Young  (CY),  and  E.  Clayton 
Teague  (ECT) .  The  major  source  of  each  program  or  routine  is 
acknowledged  in  the  listings  with  the  initials  just  given  for  each 
contributor.  Final  responsibility  for  the  correctness  of  the  listings 
and  documentation  should  however  fall  upon  me  since  many  relocations, 
renamings  and  minor  revisions  have  been  made  on  the  original  programs. 

Throughout  this  appendix  the  following  abbreviations  and  notations 
are  used: 


RO— RF 

5 

general  registers  0  thru  F, 

MMY 

* 

memory , 

TTY 

5 

teletype. 

CRL 

5 

carriage  return  and  line  feed. 

SP 

5 

space. 

ADC 

5 

analog  to  digital  converter. 

ASCII 

5 

American  Standard  Code  for  Information  Interchange, 

ACF 

l 

Autocorrelation  Fuction, 

ADF 

9 

Amplitude  Density  Function, 

LSQ 

! 

Least  squares,  and  " 

[]  or  () 

J 

for  use  other  than  in  mathematical  equations  should 

read-contents  of  a  register  or  a  memory  address, 
i.e.,  [(0560)+(RC)]  should  be  read;  contents  of  the 
memory  address  obtained  by  adding  the  contents  of 
memory  address  0560  to  the  contents  of  register  C. 
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Allocation  of  Interdata  3  Core  Memory  During  Use  By  The  Software  For 
Surface  Roughness  Measurement. 


(0000-004F)  =  General  Registers  0-F,  Hardware  Registers  and  Program 

Status  Words 

(0050-0078)  =  "50"  Loader  to  input  paper  tapes  at  the  TTY 

(0080-02FE)  =  Main  Step/Roughness  Calibration  Program 

Input  -  HO,  Al,  A2,  and  Units  at  TTY, 

Data  and  Interrupt  from  ADC, 

Decisions  indicated  at  TTY  for 
roughness  or  steps 

Output  -  Step  heights,  KCAL,  and  AA  values 

at  TTY 

Storage  -  Step  Data,  (1000-1400), 

Step  heights,  (OB60-OB82), 

Profile  data,  (1000-2000), 

AA  values,  (OBI4-OB5E), 

KCAL  value,  (OBAC-OBAE), 

HO,  (0B94) , 

Al,  A2 ;  (OB90-OB92 ) , 

Units;  (0BB0), 

Temporary  storage  of  AA  -  (OBOE), 

Indices  for  taking  AA  -  (OBOA-OBOC), 

Flag  for  Bypassing  KCAL  calculation  -(OBB2), 

(0300-0340  =  Main  Step  Height  Program 

Input  -  Al  and  A2  from  (0B90-0B92), 

Step  Data  at  (1000-1400) 

Output  -  Hexadecimal  step  heights  and  slopes  and 

intercepts  of  least  squares  lines  on 
each  side  of  step 

Storage  -  Hex  step  heights;  (0B60-0B82) 

Slopes  and  intercepts;  (0B96-0BA4) 
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(0350-03FA) 


Calculate  Hex  Step  Heights  Routine 


Input  -  A I  and  A2  from  (0B90-0B92); 

Slopes,  a  I  and  a2,  and  intercepts, 
bl  and  b2,  from  (0B96-0BA4) 

Output  -  Hex  step  heights  stored  at  (0B60-0B82) 

(0400-0430  =  Calculate  KCAL  Routine 

Input  -  Decimal  HO  from  (0B94), 

HM  from  (0B8Q-0B82) 

Output  -  KCAL  stored  at  (OBAC-OBAE) 

(0440-0492)  =  Convert  Hex  Steps  to  Decimal  Using  KCAL,  Roundoff  and 

Print  Results 

Input  -  Hex  step  heights  from  (0B60-0B82), 

KCAL  from  (OBAC-OBAE) 

Output  -  HI ,  H3,  H5,  H7,  HM  in  decimal  at  TTY 

(04 AO-051 2)  =  AA  Calculation 

Input  -  Profile  data  from  (1000-3000) 

Output  -  AA  value  of  data  in  (R5) 

(0518-0552)  =  Convert  AA  in  Hexadecimal  to  Decimal  and  Print  Result 

Input  -  AA  value  from  (R5) 

KCAL  from  (OBAC-OBAE) 

Output  -  Decimal  value  of  AA  at  TTY 

(0560-0634)  =  Least  Square  Fit  to  Data  from  (0590)  to  (0590)  +  (0578) 

Input  -  Starting  point  of  data,  (0590); 

Number  of  points,  (0578). 

Output  -  Slope  of  line  fit  x  1000  (R45), 

Intercept  of  line  fit  x  1000  -*•  (R0I) 

(0640-0658)  =  Routine  to  Set  Parameters  for  Reading  Step  Data  from 

ADC  Into  MMY 

(065A-0672)  =  Routine  to  Set  Parameters  for  Reading  Roughness  Data 

from  ADC  Into  MMY 
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(0680-OA80) 


Storage  Area  For  Amplitude  Density  Function  or  Auto¬ 
correlation  Function  Calculations 

(OA80-OBOO)  =  Presently  Unused 

(0B0A-0BB2)  =  Storage  for  Various  Parameters  of  Main  Step/Roughness 

Program 

(0BB4-0BFE)  =  Presently  Unused 

(OCOO-OCBC)  =  Program  to  Calculate  and  Plot  the  Autocorrelation 

Function  of  Data  in  MMY  Locations  (1000-3000) 

Input  -  Data  in  (1000-3000), 

Shift  increment  =  (0C06) 

Output  -  (RMS)2  value  of  data  adjusted  by  KCAL 

at  TTY,  8  bit  precision  plot  of 
calculated  data  at  strip  chart 
recorder. 

Storage  -  Calculated  data  for  512  shifts  stored 

at  (0680-OA80) 

(0D00-0D  )  =  Routine  to  Calculate  Mean  and  Standard  Deviation  of  a 

Set  of  AA  Values 

Input  -  Number  of  AA  Values  upon  query  at  the 

TTY 

AA  values  from  (0BI4-0B5E) 

Output  -  Mean  AA  value  and  Standard  Deviation 

of  Data  set  from  Mean 

(0E00-0EF0)  =  Calculate  Derivative  and  Mean  Wavelength  of  Data  in 

(1000-3000) 

Input  '  -  Profile  Data  in  (1000-3000) 

Output  -  Mean  slope  of  Data, 

Mean  wavelength  of  Data  based  on 
KCAL  and  sample  spacing  for 
usual  roughness  speed 
Both  parameters  are  output  at  TTY 

Storage  -  Data  in  (1000-3000)  is  destroyed 


6 


(OEFO-OEFE)  - 
(OFOO-OF3C)  = 

(0F48-0F84)  = 

(OF88-OFB4)  = 

(0FC2-0FEE)  = 

(1000-3000)  = 

(1500-1670)  = 


(2500-25B2) 


(3010-3020) 


Presently  Unused 

Routine  to  Store  Contents  of  all  Registers  Except 
Register  B 

Routine  to  Restore  Contents  Stored  by  0F00 

Register  Storage  For  Registers 
0,  1,2,  7,  8,  9,  A,  C,  D,  E,  and  F. 

Restore  Contents  Stored  by  0F88 

Data  Storage  for  Step  Input  and  for  Roughness  Profiles 


Program  for  Measuring  the  Height  of  Three  Consecutive 


Steps 

Input 

-  Step  data  from  (1000-1400), 

Location  of  Step  and  period  of  steps 
from  TTY,  KCAL  from  (0BAC-0BAE) 

Output 

-  Step  height  values  at  TTY 

Storage 

-  Usual  step  height  storage 
plus  (2000-2006)  for 
index  and  othe‘r  parameter 
storage. 

Program  for 

Taking  Statistics  on  Step  Profile  Data 

Input 

-  Step  location  entered  into  (251  A)  and 
(2522)  using  monitor,  step  profile 
data  from  (1000-1400),  and  interrupt 
from  ADC 

Output 

-  Slope  and  intercept  of  LSQ  line  fit  to 
each  side  of  step,  KCAL,  and  HM;  all 
in  hexadecimal,  to  TTY. 

Step  height  in  decimal  relative  to  first 
step  input,  is  also  printed  at  TTY 

Storage 

-  No  storage  beyond  usual  step  height  program 
requirements 

=  Routine  to  Wait  for  an  Interrupt,  Then  Read  Data  at  the 
AX 
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(3022-3060 


(306E-30B8) 


(30BA-30E4) 


(30E8-3I0C) 

(31 10-3120) 
(3122-3146) 
(3I4A-3I6A) 
(31 70-3 1 8E) 
(3190-31  AC) 
(31 B0-3I D4) 
(3ID6-3IF4) 
(31 F8-3216) 
(3218-3236) 
(3240-327F) 
(3280-32CA) 
(32D0-32F0) 


Routine  to  Load  Data  From  ADC 

Input  -  Digitized  data  from  ADC  based  on  an 

.analog  signal  at  the  appropriate 
ADC  channel  number  for  duration  of 
samp  I ing  time 

Output  -  Data  stored  at  1000  to  1000  +  (302E) 

Wait  for  an  Interrupt  at  ADC,  Mark  time  for  I  Second, 
Then  Exit 

Input  -  Interrupt  at  ADC 

Routine  to  Read  4  Hex  Characters  at  TTY  into  R2 

Input  -  4  characters  just  precedi na  a  CR  or 

SP  at  TTY 

Output  -  Characters  read  are  left  in  (R2) 

Routine  to  Read  2  Characters  at  TTY  and  store  ASCII 
code  at  0BB0 

Print  Single  Space  Routine 

Print  2N+I  Spaces  Routine  with  (3130)  =  N. 

Print  Two  Characters  from  ASCII  code  in  (R5). 

Routine  to  Print  "UNITS" 

Routine  to  Print  "AA - UNITS"  +  CRL 

Routine  to  Print  "H  OR  R?" 

Routine  to -Print  "MORE?" 

Routine  to  Print  "ENTER" 

Routine  to  Print  "DATA" 

Routine  to  Print  "HI - H3 - H5 - H7 - HM" 

Routine  to  Print  "STEP/ROUGHNESS  CALIBRATION" 

Routine  to  Print  Hexadecimal  Form  of  Contents  of  R2  and 
R3 
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(3300-33FE)  =  Routine  to  Convert  Binary  Number  to  Decimal  Number 

Input  -  (R45)  of  either  sign,  full  31  bits 

Output  -  (RI23)  and  at  MMY  addresses  from 

C(336A)^(R8)H  to  [  ]  +  C 

Storage  -  MMY  indicated  in  output  plus 

(3530-3540  for  hexadecimal 
equivalents  of  powers  of  10 

(3408-34CE)  =  Routine  to  Multiply  Unsigned  (R5)  x  (R9)  -*■  (R89) 

(34D4-3524 )  =  Routine  to  Multiply  (R34)  x  (R6.7)  -*■  (R23.45) 

Input  -  Both  (R34)  and  (R6.7)  must  be  positive 

('3530-3540  =  Storage  for  Hexadecimal  Equivalents  of  powers  of  10 

(3550-3550  =  Storage  of  Binary  to  Decimal  Conversion 

(3560-3580  =  Routine. to  Multiply  (R234)  by  2 

(3590-35CO)  =  Multiply  (R45)  x  (R6),  Put  Result  in  (R345) 

Input  -  (R45)  either  sign,  (R6)  assumed 

positive 

Output  -  Result  (R345);  Flag  =  8000  put 

in  (35EE)  if  (R45)  negative. 

(35C4-35F4)  =  Routine  to  take  Absolute  Value  of  (R45)  and  Set  Flag 

at  35EE  if  contents  negative. 

(35F8-3620)  =  Routine  to  Change  Sign  of  (R45)  if  Flag  at  35EE  is  Set 

(3622-3642)  =  Routine  to  Convert  Single  Precision  (R3)  to  Double 

Precision  in  (R23) 

(3644-3696)  =  Routine  to  Convert  Decimal  (R4)  to  Hexadecimal  at  Rl . 

Input  -  Assumes  (R4)  are  positive 
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(36A0-374C) 


=  Routine  to  Divide  2  Hex  Halfwords  by  I  Hex  Halfword. 

(R45)  t  (R3)  -*  (R45) 

lnPu+  -  (R45)  may  have  either  sign,  but  (R3) 

are  assumed  positive.  Only  the 
30  most  significant  bits  of  (R45) 
are  used. 

(3750-37E2)  =  Program  for  Printing  and  Punching  contents  of  MMY 

Locations  1000-3000 

Input  -  12  bit  left-justified  binary  numbers 

of  either  sign  from  (1000-3000) 

Output  -  Four  digit  signed  decimal  numbers  printed 

(and  punched)  in  a  format  of  number  - 
space  with  ten  number  per  line.  A 
space  is  printed  for  a  positive  sign. 

(3800-3888)  =  Program  to  Calculate  the  Amplitude  Density  Function 

For  Data  Stored  at  (1000-3000) 

Input  -  Data  at  (1000-3000) 

Output  -  Calculated  data  is  stored  at  (0680-0A80), 

then  plotted  on  strip  chart  recorder 
to  an  8  bit  precision. 

(3900-3916)  =  Program  to  Clear  (1000-3000) 

(3918-3946)  -  Program  to  Initialize  Plot  Routine  for  Bipolar  Numbers 

and  to  Plot  Data  in  (1000-3000)  on  Strip  Chart  Recorder 

(3950-39CF)  =  Plot  Routine  to  Drive  Polombofs  Waveform  Receiver. 

This  Routine  takes  Halfwords  from  Specified  Memory 

Locations  Using  the  8  Most  Significant  Bits  (Including 
' the  Sign  Bit)  and  Biases  the  Data  to  have  a  Range  from 
4  to  255. 

lnPu+  -  (3978)  =  Starting  address  of  data  to  be 

plotted,  (3970  =  Number  of  shifts 
needed  to  obtain  8  bit  significance  for 
input,  (3984)  and  (3980  =  Maximum 
value  to  be  plotted,  (3990)  =  Bias, 
and  (399E)  =  2X  number  of  points  to  be 
plotted.  Note  that  the  bias  and  max¬ 
imum  value  should  be  adjusted  so  that; 
(bias)  +  (MAX)  =  255. 
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Output 


-  Minimum  (4)  and  Maximum  (255)  values  for 
approximately  8  seconds,  followed 
by  data  formatted  according  to  input 
'  just  described . 

(39D4-39FE)  =  Routine  to  Print  "MEAN  AA  ='\ 

(3A00-3A2A)  =  Routine  to  Print  "VARIANCE  =" 

(3A30-3A48)  =  Program  to  Print  "ERROR,"  then  return  to  monitor. 

(3A50-3A70)  =  Print  "MM"  and  Increase  Power  of  10  in  Units  by  I 

if  for  AA 

(3A80-3FCE)  =  HEXADECIMAL  MONITOR 

See  annotation  and  Philip  Stein's  memorandum  in 
the  following  pages  for  use  and  explanation. 


III.  Flow  Diagrams  of  Major 
Programs  or  Routines 
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Figure  I  :  Main  Step/Roughness  Program,  Page  I  of  Flowchart. 
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Figure  2  :  Main  Step/Roughness  Program,  Page  2  of  Flowchart. 
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Figure  3.  Main  Step/Roughness  Program,  Page  3  of  Flowchart. 
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Figure  4:  Flowchart  of  Least  Squares  Routine. 
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Figure  6  : 


Flowchart  of  Routine  To  Calculate  AA  Value. 
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Flowchart  of  Autocorrelation  Function  Calculation 


fil 


IV.  Operating  System 
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NATIONAL  BUREAU  OF  STANDARDS 
Center  for  Computer  Sciences  and  Technology 
Information  Processing  Technology  Division 
Washington,  D.  C. 


February  4,  1969 
650.1/1 


TECHNICAL  MEMORANDUM 

From:  Philip  G.  Stein  (650.01) 

Subject:  A  HEXADECIMAL  MONITOR  SYSTEM  FOR  THE  INTERDATA  COMPUTER 


During  1968,  a  computer  program  was  developed  at  the  National  Bureau  of 
Standards  to  allow  more  convenient  use  of  the  INTERDATA  model  3  computer. 
Programs  may  be  prepared,  documented,  debugged,  and  run  directly  from  the 
teletype  keyboard.  All  data  and  instructions  handled  by  the  system  are  in 
absolute,  hexadecimal  format.  No  symbols  are  accepted  or  interpreted 
except  those  which  are  used  directly  as  system  commands. 

This  publication  is  designed  to  be  used  as  an  operators  manual  for  the 
system,  and  includes  sufficient  documentation  to  allow  a  programmer  to 
duplicate  it,  change  it,  or  incorporate  it  into  a  larger  structure 
applicable  to  special  problems. 

Although  it  is  impossible  to  prevent  referring  to  specific  equipment  by 
brand  name  when  documenting  a  computer  program  designed  for  a  given 
machine,  no  judgement  as  to  the  quality  or  suitability  of  the  equipment 
discussed  here  has  been  made  by  the  National  Bureau  of  Standards,  and  no 
recommendation  favorable  or  otherwise,  should  be  implied  by  this  report. 

It  is  assumed  that  the  reader  is  fully  familiar  with  the  operation  of  the 
INTERDATA  model  3,  and  with  the  instructions  presented  in  its  reference 
manual,  Interdata  pub  I i cat  ion  29-004.  According  to  the  manufacturer,  this 
program  will  run  without  modification  on  the  model  2  and  model  4  as  well. 

PART  I  -  STORAGE  ALLOCATION 

All  of  the  descriptions  contained  here  refer  to  a  system  written  for  a 
computer  with  I6K  bytes  or  core  memory.  The  system  may  be  used  with  any 
memory  of  2K  bytes  or  more,  and  may  be  relocated  by  hand  to  fit  other 
memory  sizes.  Paper  tapes  for  an  8K  system  and  a  I6K  system  may  be 
obtained  on  application  to  the  author. 

Memory  is  reserved  in  a  I6K  machine  as  follows: 

0000-004F  System  Registers 
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0050-007F 

*50’  loader,  as  modified  for  use  with  this  monitor 

0080-397F 

User  program  space 

; 

i 

* 

3A80-3E7F 

Monitor  system 

.... 

3E80-3F6F 

Subrout ines-Used  by  monitor  but  may  be  called  from 

anywhere 

3F70-3F7F 

Subroutines  return  push-down  stack 

3F80-3FCF 

Bootstrap  Loader  area 

3FD0-3FFF 

Register  SAVE  area 

In  addition,  the  system  uses  all  of  the  16  registers  when  in  operation.  It 
is  never  necessary  to  clear  or  preset  any  registers  when  entering  the 
system,  but  programs  called  by  the  system  should  never  depend  on  the 
presence  of  previously  stored  data  in  the  registers. 

The  system  subroutines  are  general  purpose  utility  programs  which  will  be 
very  convenient  for  most  programmers  to  call  from  their  own  programs.  They 
use  some  registers,  and  these  are  called  out  in  the  description  of  the 
specific  routines. 

A  programmer  wishing  to  write  in  such  a  manner  as  to  be  most  compatible 
with  Ihe  monitor  should  follow  these  register  assignments: 

B:  Subroutine  return  register.  Calls:  4IB0  Returns:  030B 

C:  Initial  address  register  for  loops 

D:  Increment  for  loops 

E:  Final  Address  register  for  loops 

F:  Input/Output  device  number 

Subroutines  are  nested  by  'placing  successive  returns  in  a  stack  located 
between  3F70  and  3F7F.  Programmers  wishing  to  place  returns  in  other 
registers  should  put  them  in  6  and  7  for  minimum  interference  with  the 
monitor. 


PART  II  -  LOADING 

The  monitor  system  contains  its  own  bootstrap  loading  program  for  handling 
paper  tape  inputs.  The  loader  is  read  into  3F80-3FCF  by  the  resident 
Interdata  '50'  loader.  Make  the  fol lowing  changes  in  the  *50’  loader. 
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ADDRESS 

WAS 

SHOULD  BE 

0052 

???? 

3F80 

005A 

???? 

3FD0 

0076 

???? 

3F80 

Then  follow  the  instructions  for  the  ’50’  loader.  After  the  full  loader 
has  been  read,  there  is  a  blank  space,  followed  by  the  program.  When  this 
area  is  encountered,  front-panel  display  lights  CDIS  2  bits  8:15)  should 
begin  to  flash.  When  the  read  is  finished,  these  lights  will  all  be  out  if 
no  read  errors  were  made.  Stop  the  tape  reader  after  the  last  character 
has  been  read. 

The  above  procedure  is  used  not  only  for  loading  the  monitor  tape  itself, 
but  also  for  loading  program  tapes  produced  in  binary  form  by  the  monitor. 

PART  III  -  USERS  MANUAL 

After  loading,  manually  restart  the  computer  at  location  3C80.  The 
computer  will  type 


as  it  will  every  time  it  expects  an  input  from  the  operator.  The  operator 
may  then  begin  typing  data,  instruction,  or  monitor  -commands.  All  keys, 
printing  or  non-printing,  on  the  teletype  are  active.  Those  that  are  not 
used  for  Hexadecimal  numbers  or  for  monitor  commands  will  cause  erroneous 
data  to  be  entered.  Accidental  operation  of  these  keys  should  not  be 
ignored,  but  corrections  should  be  made. 

When  typing  data  or  instructions,  the  monitor  only  saves  the  last  four 
characters  typed.  For  this  reason,  if  an  error  is  made,  simply^  continue 
typing  until  the  last  four  characters  typed  are  correct.  The  input  data 
register  is  cleared  after  every  monitor  command,  and  data  is  brought  into 
it  right-justified.  The  user  may  therefore  type  without  bothering  with 
leading  zeros.  They  will  be  included  automatically.  After  four  correct 
hexadecimal  characters  are  typed  into  the  data  register,  one  of  many  system 
commands  may  be  given. 

SYSTEM  COMMANDS:  POINTER 

R  -  The  data  register  is  loaded  into  a  pointer  address  register.  This 
pointer  indicates  where  data  or  instructions  will  be  stored  or 
retrieved. 

I  -  The  address  pointed  to  by  the  pointer  is  incremented  by  one  halfword. 
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RUBOUT  -  The  address  pointed  to  by  the  pointer  is  decremented  by  one 
halfword,  and  the  character  T  is  printed. 

W  -  The  current  contents  of  the  pointer  are  printed,  and  nothing  is 
changed. 

SYSTEM  COMMANDS :  I NPUT 

CARRIAGE  RETURN  -  The  data  in  the  input  register  is  stored  at  the  location 
indicated  by  the  pointer.  Data  previously  located  at  that  address  is 
destroyed.  The  position  of  the  pointer  is  incremented  by  one 
halfword,  and  the  system  returns  a  >. 

SPACE  -  Has  the  same  effect  as  carriage  return,  except  that  the  system  does 
not  return  any  printed  characters. 

Note:  Using  the  above,  instructions  may.be  typed  exactly  as  they 

appear  on  the  standard  coding  sheet,  i.e. 

C8F0  1234 
4330  1000 
033C 
9BF8 

4 1  BO  2222 

and  data  may  be  typed 

1234  5678  9 ABC  DEFO  1234  5678  9 ABC  DEFO 
1234  5678  9ABC  DEFO  1234  5678  9 ABC  DEFO 

with  no  change  in  the  system. 

SYSTEM  COMMANDS:  OUTPUT 

P  -  Prints  the  contents  of  memory,  beginning  at  the  pointer  and  ending  at 
the  halfword  preceding  the  data  register.  The  routine  is  therefore 
called 

I000R 

I020P 

which  will  immediately  begin  printing  in  program  format:  i.e.:’ 

1000  C8F0  1234 
1004  4 1 B0  2222 
1008  9EFF 
I00A  0309 
I00C  4300  I C8A 

Addresses  are  printed  on  every  line.  Halfword  and  full  word  Instructions 
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are  printed  so  that  each  occupies  a  single  line,  and  the  address 
computations  are  adjusted  automatically.  Printing  may  be  terminated 
prematurely  by  depressing  one  of  the  console  buttons  8  through  15. 

L  -  Prints  the  contents  of  memory,  beginning  at  the  pointer  and  ending  at 
the  halfword  preceding  the  data  register.  The  routine  is  therefore 
called 

I000R 
1 020  L 

which  will  immediately  begin  printing  in  data  format:  i .e. : 

1000  1234  5678  9ABC  DEF0  1234  5678  9ABC  DEF0 

1010  1234  5678  9 ABC  DEF0  1234  5678  9ABC  DEFO 

Addresses  are  printed  at  the  beginning  of  every  line,  and  the  format  is 
fixed  regardless  of  what  is  being  printed.  Printing  may  be  terminated 
prematurely  by  depressing  one  of  the  console  buttons  8  through  15. 

K  -  Prepares  a  binary  bootstrap  tape  and  a  manuscript  tape  which  may  be 
loaded  with  the  same  '50'  loader  that  loaded  the  monitor  itself.  It 

is  called  in  the  same  way  as  the  P  and  L  routines,  but  may  not  be 

interrupted  from  the  console  switches.  Before  typing  K,  turn  on  the 

tape  punch  by  striking  control  R  (ASR  35)  or  punch  ON  (ASR  33).  On 

the  ASR  35,  after  striking  K,  rotate  the  MODE  switch  to  TTR. 

SYSTEM  COMMANDS:  CONTROL 

G  -  Causes  the  computer  to  jump  to  the  address  in  the  data  register.  If 
this  address  is  greater  than  3B00,  the  command  is  ignored.  If  the 
address  is  accepted,  the  computer  will  ring  the  teletype  bell  and  wait 

for  a  console  switch  (8  through  15)  to  be  pressed  before  executing  the 

j  ump . 

>  -  Causes  the  computer  to  reinitialize  the  monitor  and  restart  it.  When 
a  new  page  or  other  circumstance  makes  it  unknown  whether  the  system 
is  running  or  where  it  is^  typing  >  will  return 


and  restart  the  system.  It  is  suggested  that  all  other  routines  which 
and  call  the  system  be  written  so  that  typing  >  wi I  I  jump  to  3C80  and 
restart  the  monitor. 

PART  IV  -  LINKING 

Users  who  which  to  add  their  own  routines  to  be  called  by  monitor  commands 
should  do  so  as  follows: 
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There  are  four  blank  spaces  in  the  command  tables.  Place  the  ASCII  code 
for  the  letter  command,  and  the  address  to  which  a  jump  Is  desired  when 
that  letter  is  typed,  into  memory  as  shown: 


Letter  Command 
in  BYTE 

3CD0 

3CDI 

3CD2 

3CD3 


JUMP  ADDRESS 
in  HALFWORD 

3CF4 

3CF6 

3CF8 

3CFA 


Your  routine  may  retrieve  the  pointer  from  register  5  and  the  input  data 
buffer  (four  characters,  converted  to  hexadecimal)  from  register  4. 

To  return  to  the  monitor,  reinitialize,  and  print 


> 


Jump  to  3C8A.  To  return  without  the  printing,  jump  to  3C96.  No  other 
addresses  in  the  monitor  snould  be  used  as  entry  points. 

PART  V  -  UTILITY  SUBROUTINES 

These  programs  should  be  useable  by  every  program  for  handling  input/output 
and  data  conversion  chores.  They  are  listed  below,  and  include  calls, 
location  of  input  and  output  argument,  and  lists  of  registers  destroyed  by 
their  use. 


Name 

INPUT  ARGUMENT 

OUTPUT  ARGUMENT 

DESTROYS 

PRINT 

(register  or  other) 

(register  or  other) 

register 

41  BO  3E80 

0  (8-151. 

teletype 

0,  8,  F 

READ 

41  BO  3E8A 

te 1 etype 

0  (8-15) 

u_ 

% 

00 

* 

o 

ASCI  1 -HEX 

41  BO  3EA4 

0  (8-15) 

1  (12-15) 

0,  1 

HEX-ASCI 1 

41  BO  3EC8 

0  (12-15) 

1  (8-15) 

0,  1 

LOOP 

41  BO  3EE2 

Panel  Buttons  8-15 

Condition  Code 

0 
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NAME 


INPUT  ARGUMENT 
(register  or  other) 


OUTPUT  ARGUMENT 
(register  or  other) 


DESTROYS 

register 


PRINT4  2 

4 1  BO  3EF0 

LEADER  0  (8-15) 

4 1  BO  3F26 


teletype  0,  1,2, 

3,  8,  F 

teletype  0,  C,  D, 

E,  F 


CARL  teletype  0,  8,  F 

4 1  BO  3F44 


PRINT:  Prints  the  contents  of  register  0  (8-15,  in  ASCII)  on  the 

teletype. 

READ:  Waits  for  a  character  to  be  typed  on  the  teletype,  then  loads  it 

into  0  (8-15). 

ASCII-HEX:  Interprets  the  ASCII  characters  0-9  and  A-F  and  converts  them 

to  Hex.  This  routine  does  not  do  correct  processing  on  any  other 
character. 

HEX-ASCII:  Converts  the  sixteen  hex  characters  to  their  ASCII 

equivalents,  With  the  parity  bit  always  set. 

LOOP:  Senses  the  front  panel  buttons,  and  sets  the  condition  code  equal 

to  0  if  none  of  them  are  pushed. 

Print4:  Prints  the  entire  halfword  located  In  2  on  the  teletype  as  four 
Hex  characters. 

LEADER:  Punches  six  inches  of  tape  containing  the  character  located  in  0 
(8-15). 

CARL:  Causes  the  teletype  to  carriage-return,  line  feed. 

PART  IV  -  DOCUMENTATION 

An  annotated  listing  of  the  monitor  program  is  included  with  the  complete 
listing  of  the  software  in  this  appendix.  They  should  be  self-explanatory 
to  a  programmer  familiar  with  the  Interdata  3.  Any  questions  concerning 
the  monitor,  its  operation,  design,  or  use  would  be  welcomed  by  the  author. 
Details  of  the  tape  punch  and  print  formats  may  be  found  by  following  the 
process  by  which  they  are  generated,  as  seen  in  the  listings. 
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V.  Brief  Description  of  Op-Codes 
and  Instruction  Word  Formats 
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These  excerpts  from  the  Interdata  Model  3  Manual  are  given  to  make  the 
listings  independently  readable.  Further  details  about  the  instruction 
set,  instruction  word  format  and  the  model  3  minicomputer  may  be  obtained 
from  Publication  Number  29-004R02,  published  by  Interdata  Inc.,  2  Crescent 
Place,  Oceanport,  New  Jersey  077571,  phone  number  (201)  229-4040. 

INSTRUCTION  WORD  FORMATS 

Instructions  in  INTERDATA  Systems  have  three  formats: 

1.  Register  to  Register  [RR] 

2.  Register  to  Indexed  Memory  [RX] 

3.  Register  to  Storage  [RS] 

In  general,  each  format  specifies  three  things:  The  operation  to  be 
performed,  the  address  of  the  first  operand,  and  the  address  of  the  second 
operand.  The  first  operand  is  normally  a  General  Register  which  contains 
the  result  of  a  previous  operation.  The  second  operand  is  normally  the 
contents  of  a  General  Register,  the  contents  of  a  core  memory  location,  or 
a  data  constant  used  as  the  other  part ic i pat i ng.  operand . 

A  16-bit  halfword  format  is  used  for  register  to  register  operations. 

A  32-bit  fullword  format  is  used  for  the  register  to  indexed  memory,  and 
the  register  to  storage  formats.  The  specific  formats  are  shown  in  Figure 

9. 


16-BIT  HALFWORD 

REG  I STER-TO-REG I STER  [RR] 


0  7 

8  1  1 

12  15 

OP 

Rl 

R2 

32-BIT  FULLWORD 
REGISTER  TO  INDEXED  MEMORY 


0  7 

8  1  1 

12  15 

[RX] 

16  31 

OP 

Rl 

X2 

A 

REGISTER 

0  7 

*  TO  ST0RAG 

8  1  1 

;e 

12  15 

[RS] 

16  31 

OP 

Rl 

X2 

A 

Figure  9:  Instruction  Word  Formats 
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The  8-bit  OP  field  in  all  three  formats  specifies  the  machine 

operation  to  be  performed.  The  operation  code  can  be  written  as  two 
hexadecimal  characters. 

The  4-bit  Rl  field  in  the  three  instruction  formats  specifies  the 

address  of  the  first  operand.  The  Rl  field  is  normally  the  address  of  a 
General  Register  and  is  written  as  one  hexadecimal  character. 

The  4-bit  R2  field  in  the  RR  instruction  format  specifies  the  address 
of  the  second  operand.  The  R2  field  is  always  a  register  address  and  is 
written  as  one  hexadecimal  character. 

The  4-bit  X2  field  in  the  RX  and  RS  formats  specifies  a  General 

Register  whose  content  is  used  as  an  index  value.  The  X2  field  is  always 
the  address  of  a  General  Register  and  is  written  as  a  single  hex  character. 

The  16-bit  A  field  specifies  a  memory  address  in. the  RX  format,  or 
contains  an  integer  value  to  be  used  as  an  immediate  operand  in  the  RS 
format.  It  is  written  as  a  string  of  four  hex  characters. 

The  RR  instructions  are  used  for  operations  between  two  registers. 

The  first  operand  is  the  contents  of  the  register  specified  by  the  Rl  field 
of  the  instruction  word.'  The  second  operand  is  the  contents  of  the 
register  specified  by  the  R2  field. 

The  RX  instructions  are  used  for  operations  between  a  register  and 

memory  with  the  option  of  indexing.  The  first  operand  is  the  register 
specified  by  the  Rl  field  of  the  instruction  word.  The  second  operand  is 
the  contents  of  the  memory  location  specified  by  the  A  field  of  the 

instruction  word,  or  by  the  sum  of  the  A  field  and  the  contents  of  the 

General  Register  specified  by  the  X2  field  if  indexing  is  specified. 

In  the  RS  instruction,  the  first  operand  is  the  contents  of  the 
General  Register  specified  by  the  Rl  field  of  the  instruction  word.  The 
second  operand  is  the  number  contained  in  the  A  field,  or  the  number 
generated  by  adding  the  A  field  to  the  contents  of  the  General  Register 
specified  by  the  X2'field  if  indexing  is  specified.  The ^ second  operand  of 
an  RS  instruction  specifies  the  number  of  bit  positions  in  shift 
Instructions,  or  forms  the  second  operand  in  immediate  instructions.  An 
immediate  operand  is  two  bytes  of  data  used  as  an  operand  and  carried  in 
the  halfword  address  field  itsel*.  The  value  in  the  address  field  is 
treated  as  a  signed  integer  instead  of  a  memory  location  address. 

For  the  Branch  on  Condition  instructions  the  first  operand  is  the  Ml 
field.  This  field  is  a  4-bit  mask  which  is  to  be  tested  against  the  con¬ 
dition  code  contained  in  the  Program  Status  Word. 
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LIST  OF  INSTRUCTION  SET  FOR 
INTERDATA  MODEL  3 


OP  CODE 

TYPE 

INSTRUCTION 

01 

RR 

Branch  and  Link 

02 

RR 

Branch  on  True  Condition 

03 

RR 

Branch  on  False  Condition 

04 

RR 

AND  Ha  1 f word 

05 

RR 

Compare  Halfword 

06 

RR 

OR  Hal fword 

07 

RR 

Exclusive  OR  Halfword 

08 

RR 

Load  Halfword 

OA 

RR 

Add  Halfword 

OB 

RR 

Subtract  Halfword 

OC 

RR 

Multiply  Halfword 

OD 

RR 

Divide  Halfword 

OE- 

RR 

Add  with  Carry  Halfword 

OF 

RR 

Subtract  with  Carry  Halfword 

40 

RX 

Store  Halfword 

41 

RX 

Branch  and  Link 

42 

RX 

Branch  on  True  Condition 

43 

RX 

Branch  on  False  Condition 

44 

RX 

AND  Ha  1 fword 

45 

RX 

Compare  Logical  Halfword 

46 

RX 

OR  Hal fword 

47 

RX 

Exclusive  OR  Halfword 

48 

RX 

Load  Halfword 

4A 

RX 

Add  Ha  1 fword 

4B 

RX 

Subtract  Halfword 

4C 

RX 

Multiply  Halfword 

4D 

RX 

Divide  Hal fword 

4E 

RX 

Add  with  Carry  Halfword 

4F 

RX 

Subtract  with  Carry  Halfword 

90 

RR 

Unchain 

92 

-RR 

Store  Byte 

93 

RR 

Load  Byte 

96 

RR 

Write  Block 

97 

RR 

Read  Block 

9A 

RR 

Write  Data 

9B 

RR 

Read  Data 

9D 

RR 

Sense  Status 

9E 

RR 

Output  Command 

9F 

RR 

Acknowledge  Interrupt 

CO 

RS 

Branch  on  Index  High 
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OP  CODE 

TYPE 

INSTRUCTION 

Cl 

RS 

Branch  on  Index  Low  or  Equal 

C2 

RX 

Load  Program  Status  Word 

C4 

RS 

AND  Halfword  Immediate 

C5 

RS 

Compare  Logical  Halfword  Immediate 

C6 

RS 

OR  Halfword  Immediate 

C7 

RS 

Exclusive  OR  Halfword  Immediate 

C8 

RS 

Load  Halfword  Immediate 

CA 

RS 

Add  Halfword  Immediate 

CB 

RS 

Subtract  Halfword  Immediate 

CC 

RS 

Shift  Right  Logical 

CD 

RS 

Sh 1  ft  Left  Loq i ca 1 

CE 

RS 

Shift  Right  Arithmetic 

CF 

RS 

Shift  Left  Arithmetic 

DO 

RX 

Store  Multiple 

Dl 

RX 

Load  Multiple 

D2 

RX 

Store  Byte 

D3 

RX 

Load  Byte 

D5 

RX 

Autoload 

D6 

RX 

Write  Block 

D7 

RX 

Read  Block 

DA 

RX 

Write  Data 

DB 

RX 

Read  Data 

DD 

RX 

Sense  Status 

DE 

RX 

Output  Command 

DF 

RX 

Acknowledge  Interrupt 
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IV.  Annotated  Listings  of 
Complete  System  Software 


r 


0080R 

>064  OP  (0080-02FE) 

008  0  0700  LDAS  8.  ECT] 

008  2  4000  0BB2 

008  6  4 1B0  32A4 

008 A  41 BO  3  F44 

008 E  4 1B0  3 F44 

009.2  41  BO  31F8 

0096  4 1B0  3218 

009 A  41B0  0640 

009 E  41B0  3010 

00A2  4200  0000 

00A6  C8  50  C9CE 

00 AA  41B0  314A 

OOAE  41B0  3110 

00B2  4 ISO  31F8 

00B6  C850  C8CF 

OOBA  4 1B0  3 14A 

*  OOBE  41B0  3110 

‘  '  00C2  41B0  3 03A 

OOC  6  4020  0B94 
OOCA '  4 1  BO  31F8 
OOCE  41B0  3170 
00D2  41  BO  30E8 
00D6  4 1B0  3110 
OODA  41S0  31F8 
OODE  C8  50  C1B1 
00E2  41B0  314A 
00E6  41B0  3110 
00 E A  41 BO  303A 
OOEE  4020  0B9  0 
00F2  4130  31F8 
O0F6  C8  50  C 132 
OOFA  4130  314A 
00 FE  4 1B0  3110 
0102  41B0  30BA 
0106  4020  0B9 2 
01  OA  4130  3 F44 
010E  4200  0000 

•  0112  4130  3240 

'  01  16  4 1B0  3170 

01  1A  4 1B0  3122 
01  IE  4130  0300 
0122  4  200  0  000 
0126  4200  0000 
012A  4200  0000 
012E  4 1B0  0400 
0132  C850  CBC3 
0136  4130  314A 
*  01 3A  C8  50  C1CC 

013E  41B0  314A 
0142  C850  OOBD 

~  0146  4 1B0  314A 
014A  4 1B0  3110 
014E  4820  03AC 
0152  4 1B0  3EF0 
0156  4820  OBAE 
015A  4130  3EF0 
01 5E  C800  0000 
0162  4000  03B2 


=  MAIN  PROGRAM 

Clear  flag  . . ~  - - 

. Pr  I  nt  "STEP/ROUGHNESS  CALI  BRAT  I  ON" - - 

Two  carriage  returns  and  line  feed  (CRL) 


Print  "ENTER" 

Print  "DATA"  - - - 

Set  parameters  to  read  step 

Wait  for  an  interrupt  and  read  step"data — - 

continue 

Load  "IN"  . . . 

Print 

Print  space  (SP)  " 

Print  "ENTER" 

Load  "HO"  - - - - - 

Print 

Print  SP  '  . . - 

Read  4  characters  at  teletype  (TTY),  step  height 

Store  at  0B94  .  — 

Print  "ENTER" 

Print  "UNITS"  . . — . . . 

Read  2  characters  at  TTY  (Input  units) 

Print  SP  - - - - 

Print  "ENTER" 

Load  A I  . 

Print 

Print  SP  .  '  . . . . ~ . 

Read  4  characters  (input  Al) 

Store  at  0B90  . ~  . .  . 

Print  "ENTER" 

Load  A2  . . . " .  .  . . . 

Print 

Print  SP . . . . . . . . . — — - - - 

Read  4  characters  (Input  A2) 

Store  at  0B92  .  . — . 

CRL 

Conti  nue . . . . .  •  . . . 

Print  "HI - H3 - H5 - H7 - HM" 

Pr  i  nt  "UN  I TS"  . . . . . . ~  - . . . . 

Print  7  spaces 

Calculate  step  heights” in  hexadecimal 

Conti nue_ _ 

Continue  ' 

Compute  ca  I  i  brat  ion  constant”"  ( KCAD  . 

Load  KC 

Print  .  :  . 

Load  AL 

Print  ’ '  "•  . 

Load  = 

Print - - : - 

Print  SP 


Print  contents  of  OBAC  and  OBAE  =  (OBAC-OBAE) 


Flag  Load  - not  presently  used 


t 


I 

«166  4 1  BO  3F44  CRL  * “ ~ - - - - “* . 

01 6A  41  BO  0440  Convert  hexadecimal  steps  to  decimal  and  print 

016E  4850  OBBO  '  . .  "  Load  units  (those  input  previously) 

0172  4 1  BO  3A58  Print 

0176  41B0  3 F44  ~  CRL 

017A  4300  02F4  Branch  to  flag  test 

01 7E  C8  00  1111  .  Load  flag  ~ 

0182  4000  0BB2  Store  flag 

0186  41B0  31B0  . . .  Print  "H  OR  R?" 

018A  41B0  3E8A  Read  one  character  at  TTY 

018 E  C500  00D2  "  .  Compare  it  with  an  R 

0192  4330  019E  Branch  to  AA  routine  if  equal 

0.19  6  41B0  3F44  CRL  ~ . ~ . ~ 

019A  4300  0092  Branch  to  start  of  step  height  routine 

019E  41B0  3F44  .  CRL  ‘  '  —  . . ~~ . r - 

01A2  4130  3190  Print  "AA - — UNITS"  _  _ 

01A6  41B0  0 65A  Set  parameters  for  roughness  data  input 

01  AA  07AA 

01AC  40A0  OBOC  Clear  accumulator  and  summation  index 

*  •  0130  40A0  OBOA 

01B4  41B0  3010  Wait  for  an  interrupt  and  read  data 

01 B8  41  BO  04A0  Calculate  AA  value  in  hexadecimal 

01BC  4050  OBOE  Store  hex  value  temporarily  at  OBOE 

01C0  4 1B0  0518  Convert  AA  to  decimal  and  print 

01C4  4 1B0  3110  Print  SP 

01C8  4850  OBBO  Load  units  (those  input  previously) 

01CC  41B0  3A50  Print  '  . . 

OIDO  4130  3E8A  Read  one  character  at  TTY 

01D4  C500  0043  Compare  with  a  K 

01 D8  4330  01F0  Branch  around  data  storage  if  equal 

01DC  4800  OBOE  Load  hex  value  of  AA  to  register  0  (RO) 

01 EO  4840  OBOA  Load  storage  index  value  to*  R4 

01 E4  4004  OB  14  Store  hex  value  at  OB  1 4  +  (R4) 

01 E8  CA40  0002  Increment  index  register  by  2  _ 

OlEC  4040  OBOA  Save  index  value  at  OBOA 

01 FO  4 1B0  3110  Print  SP 

01 F4  4 ISO  3110  "  print  SP 

01F8  4840  OBOC  _ _ _ _ Load  line  index  number  into  R4 _ 

OlFC  CA40  0001  Increment  line  index  number  by  I 

0200  4040  OBOC  _ Save  line  index  number  at  OBOC 

.  =  0204  C540  0003  Compare  with  number  per  line 

1  0208  4  28  0  01B4  _  _  __  If  Less  than  maximum  take  next^  entry 

020C  0744  '  Clear  R4  and  . . 


020E 

4040 

OBOC 

Reinitialize  line  index 

number 

0212 

41B0 

3122 

Print  seven  spaces 

0216 

41B0 

31D6 

Print  "MORE" 

) 

021 A 

4 1B0 

3E8  A 

Read  one  character  at  TTY 

• 

02  IE 

C500 

004E 

Compare  it  with  an  N 

02  2  2 

4330 

0240 

Branch  to  print  F INI  if  equal 

> 

02  2  6 

41B0 

3F44 

CRL 

02 2 A 

4300 

0  1B4 

Return  to  taking  next  line  of 

data 

022E 

0232 

Not  used 

> 

0230 

41B0 

310  6 

Print  "MORE" 

0234 

41B0 

3  ESA 

Read  one  character  at  TTY 

0238 

C500 

0059 

Compare  it  with  a  Y 

> 

023  C 

4330 

0  17E 

Branch  to  "H  OR  R?"  if  equal 

~  0240 

4 1B0 

3F44 

CRL 

0244 

41  BO 

3F44 

CRL 

* 
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0248  C8  50  C6C9 
024C  4 1B0  314A 
0250  C8  50  CEC9 
0254  41B0  314A 
0258  4300  3C8  0 
025C  4 1B0  314A 
0260  0700 
02  62  4  0  0  0  OB  10 
0266  4000  OBI  2 
02 6 A  4000  OB  14 
026E  4300  0080 
0272  4810  OB AC 
027  6  48  20  OBAE 
02 7 A  4A20  OB  12 
027 E  4E10  0310 
0282  4010  0E10 
028  6  4020  0312 
028  A  4810  0314 
028 E  CA1 0  0001 
029  2  4010  OB  14 
029  6  C510  0005 
029 A  428  0  009  2 
029 E  4840  OB  10 
02 A2  48  50  0312 
02 A 6  C830  0005 
02  AA  41 BO  3  6A0 
02 AE  4040  OBAC 
0232  4050  03AE 
023  6  C8A0  314A 
02 3 A  C8  50  4156 
02BE  013A 
02C0  C8  50  4720 
02 C 4  0 13A 
02C  6  C850  C3C3 
02  C  A  01  BA 
02CC  C850  C1CC 
0200  01 BA 
02D2  C850  2030 
0206  0 13A 
0208  4820  OBAC 
02DC  41B0  3EF0 
02 EO  4820  OBAE 
02E4  4 1B0  3EF0 
02E8  41  BO  3F44 
02 EC  4130  3F44 
02 FO  4300  0230 
02  F4  48  00  0Bu2 
02F8  4230  0230 
02 FC  4300  0272 
0300  40E0  034A 
0304  48  00  0B9  2 
0308  4000  059  0 
03 OC  4 1B0  0568 
0310  40C0  039 E 
0314  40D0  03A0 
0318  4000  0BA2 
03 1C  4010  0BA4 
0320  48  00  0B9 0 


Load  FI  .  . 

Print 

Load  Nl  " ~  ~  ’  "  ~~~ 

Print 

Return  to  monitor  ‘ 

NOT  USED 

Initialize  index  and  accumulator  registers 


Branch  to  start  of  step  height  routine 
Cal  I  KCAL.  to  (RI2)  _ 

Double  precision  accumulate  into  (OBIO-OBI2) 


Recall  increment. 


compare  and  save 


index  counter 


If  i<5  repeat  process  of  calibrating 
Recall  I  KCAL.,  calculate  average  KCAL, 
i  1 


Store  average  KCAL  at  OBAC-OBAE 

Put  print  subroutine  address  in  RA 
Load  AV 

Print  . . . . . . . 

Load  G  space 
Print 
Load  KC 
Print 
Load  AL 
Print 

Load  space  = 

Print 

Load  (OBAC) 

Print 

,Load  (OBAE) 

‘  Print 
CRL 

. . CRL  "  ^  .  .  - -  -  *  * 

Branch  to  "MORE?"  ’ _ _ 

Reca II  Flag 

If  set  branch  to  "More?" 

If  not  set  branch  to  AVG  KCAL  calculation 
(0300-0340  =  MAIN  STEP  HEIGHT  PROGRAM 
CECTU  Recall  A2 

Store  at  starting  address  of  LSQ  program 
LSQ  fit  to  data  from  A2  to  A2  +  I00x 

Store  slope  a2  at  0B9E-0BA0 

Store  intercept  b2  af~OBA2-OBA4 
Reca I  I  A I 


37 


0324  C300  0100  A I  -  I00x  =  New  starting  address  of  LSQ  program 

0328  4000  059  0 

032C  4 1 30  0568  LSQ  fit  to  data  from  Al~-" I00x  to"AI . .  .  . . 

0330  40C0  039  6  Store  slope  al  at  0B96-0B98 

0334  40D0  0B98  ~  ~~  . .  . ~ . ; 

0338  4000  039 A  Store  intercept  bl  at  0B9A-0B9C 

033C  4010  039 C 

0340  4130  0350  Calculate  step  heights  in  hexadecimal 

0344  C8F0  0002  Restore  TTY  device  number  to  RF  ~~ 

0348  C8B0  0122  Restore  RB  and  return  to  main  program 

03 4C  0303 

034E  0806  (0350-03FA)  =  CALCULATE  HEX  STEP  HEIGHTS  ROUTINE 

03  5  0  4  0  3  0  0  3 F8  ^ECT] 

0354  4800  0B9 2  Recall  A2  to  (RO) 

0358  4300  0390  . . .  A2  -  Al "  +  '  (R0)"= ’2Z  * 

035C  CCOO  0001  (R0)/2  =  Z  put  into  RO 

03  60  08 DO  Save  in  RD 

03  62  CADO  008  0  Z  +  80  put  into  RD 

03  6  6  48  1  0  039 E  X 

036A  4820  OBAO  Slope  a2  -*•  (RI2) 

03  6E  4320  039  8  ' . . ~ .  . . . . . . .  . 

03  7  2  4F1 0  039  6  a2  -  al  -►  (RI2) 

03  7  6  48  7  0  0BA2  . .  . .  *  “ 

037A  4880  0BA4  Recall  intercept  b2  to  (R78) 

03 7 E  4380  039 C 

038  2  4F70  039 A  b2  -  bl  •+•  (R78) 

038  6  4840  039  6 

038 A  4850  0398  Recall  slope  al  to  (R45) 

038 E  08  6D  Z  +  80  -»•  (R6) 

0390  4130  3590  al  (Z  +  80  )  -*•  (R45) 

039  4  038  5 

039  6  0F74  (b2  -  bl)  -  a  I  (Z  +  80  )  (R78) 

0398  0799  ~ 

039 A  OSAO  Save  Z  in  RA 

039 C  08 C 7  Save  (b2  -  bl)  -  al (Z  +  80  )  in'(RCD) 

039  E  08  D8 

03A0  CCOO  0003  Z/8  ->(R0) 

03A4  08 7 C  Recall  (b2  -  bl)  -  al(Z  +  80*)  to  (R78) 

03A6  088 D 
03 A8  0841 

03  AA  0852  Reca  I  I  (a2  -  a  I )  to  (R45) 

03 AC  08  6A  „Z  -  nZ/8'-*-  (R6)  n  =  0,1, - 8 

03AE  4130  3590  ~~  (a2  -  al)  (Z  -  nZ/8)  (R45) 

0332  038  5 

03B4  0F74  . "(b2  -  bl)  -  al  (Z  +  80xf  -  '(a2’  a  I )  TZ‘-nZ/8)  (R78) 

03B6  OBAO  (Z  -  nZ/8)  -*•  (RA) 

03B8  4079  0B60  . .  . " . .  .  . 

03 BC  4089  OB 62  Store  result  at  0B60-2  +  (R9) 

03 CO  CA9 0  0004 

03C4  C590  0020  Increment,  compare  (R9)  to  limit 

03C8  4280  03A4  . if  (R9)  are  less  than  I  imi t,  return  to  cal  ibrate  new  value 

03CC  0744 
03 CE  0755 

03D0  0766  Initialize  accumulator  and  index  R's 

03D2  4A5  6  03  62 

03D6  4E46  0360  Double  precision  accumulate  H)'s  into  (R45). 

03 DA  CA60  0004  '  . EHj  (R45) .  “  " 

03 DE  C560  0020 


> 

) 

) 

) 

> 
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4  • 

t  f 


03  E2 

03E6 

03  E  A 

03EE 

03  F2 

03  F  6 

03  FA 

03  FC 

0400 

0404 

0408 

040C 

040E 

0412 

0414 

0418 

041C 

0420 

0424 

0428 

042A 

042C 

0430 

0434 

0438 

043  C 

043  E 

0442 

0444 

0448 

044C 


428  0 
C830 
41B0 
4040 
4050 
C8B0 
030B 
48B0 
40B0 
4840 
4 1B0 
08  41 
CF40 
0755 
48  60 
48  70 
CF60 
C47  0 
CC70 
0A67 
08  3  6 
41B0 
4040 
4050 
C8B0 
030B 
48  BO 
049  0 
C8C0 
C8D0 
C8E0 


03D2 
0003 
3  6A0 
0B8  0 
0B8  2 
0344 

03C6  (0400-0430 
043A  [DASH 
0B94 
3  648 

0000 

0B8  0 
0B8  2 
0003 
EOOO 
OOOD 


3  6A0 
OBAC 
OBAE 
0132 

40B0  (0440-0492) 
LDAS] 

0000 

0008 

0020 


EHj  (R45)  continued 
ZHj/8  V  CR45) . - . . 


Store  HM  at  OB80-OB82  “  '  , 

Restore  RB  and  return  to  main  program 


CALCULATE  KCAL  ROUTINE 


Recall  decimal  HO  to  (R4) 
Convert  to  hex  va I ue  at  (Ri ) 

Put  hex  value  of  HO  in  (R45) 

Recal  I  HM  to  R67  — 


Multiple  HM  by  8  and  put  result  in  R3, 


H0/8HM  (R45 ) 

Store  KCAL  at  OBAC-OBAE 


Return 

=  CONVERT  HEX  STEPS  TO  DECIMAL . 

USING  KCAL,  ROUNDOFF  AND  PRINT  RESULT 

Initialize  index  counter 


0450  48  60  OBAC 
0454  48  70  OBAE 
.  0458  0722 

04 5 A  48 3C  0360 
045E  48 4C  OB 62 
0462  41 BO  34D4 
04  6  6  C8  60  0008 
046A  0777 
046C  41B0  34D4 
"  0470  0788 
0472  CD40  0001 
047  6  0E38 
0478  0E28 
”  04 7 A  08  53 
047C  0842 

<  047E  41B0  3300  Convert  hexadecimal  in  R45'to  decimal'  in  RI23  then 

<  '  0482  4 1B0  32D0  print  result 

048  6  41B0  3110 

048 A  C1C0  0450  _ Repeat  for  next_Hj _ _ 

~  048 E  C8B0  016E 

0492  0303  _  _  Return  to  main  program _ _ 

0494  40C0  0452 

0498  40D0  0454  _  _  _  _ 

049 C  40E0  0456 

04 AO  4030  0510  (04AO-05I2)  =  AA  CALCULATION _ 

04 A4  4200  1000  [DAS]  . . . 

04A8  C8C0  0002  Initialize  index  counter 


Reca I  I  KCAL  to  (R67 )  _ _ 

Recal I  H j  to  (R34) 

KCAL  x  H j  (R345 ) 

Multiply  result  by  8  to  account  for  3  bit  shift  made  in 
KCAL  calculation 

'-Round  off  R234  to  R23  then  move  result  to  R45  [ECT] 


04  AC 
04B0 
"04B4 
04B6 
04B8 
04BC 
04C0 
04  C  4 
04C  6 
04C8 
04CC 
04D0 
04D2 
04D6 
04D8 
04  DA 
04DC 
04DE 
04E2 
04E6 
04  EA 
04EE 
04  F0 
04  F2 
04F  6 
04  F8 
04  FA 
04  FE 
0500 
0502 
0506 
050 A 
050E 
0512 
0514 
0516 
0518 
05 1C 
05  IE 
0520 
0522 
052  6 
0528 
052C 
'  0530 
0534 
0538 
053A 
053E 
0540 
0542 
0544 
054  6 
054A 
054E 
0552 
“0554 
0556 


C8D0  0002 
C8E0  2000 
0766 
0777 

48  3 C  1000 
CE30  0000 
41B0  3624 
0A73 
0E62 

CICO  04B8 
4D60  04A6 
0837 

4130  3624 
08  02 
0813 
0744 
0755 

C8C0  0002 
48 3 C  1000 
CE30  0000 
4130  3624 
0331 
0F20 

4210  04FE 

0A53 

0E42 

4300  0502 

0353 

0F42 

CICO  04E2 
4D40  04A6 
CE50  0001 
C830  01BC 
0303 
08  41 


Initialize  Increment  value 
Initial  I ze  final  value 
“I  nl t  ta I i ze  accumu I  at i on~ registers 

Cal  l  data  (1000  +  (RCJ)  to  (R3> 

Null  operation 

Single  precision  (R3)  -*■  double  precision  (R23) 
W-*  (R67)  7  “ 

X  =  (ZXn)/N  (R7) 

Convert  resu I t  to  doub I e  preci si on 
Save  7  iiTCROTT 

Initialize  accumulation  registers _ 


Reset  index  counter 
Ca 1 1  data  to  ( R3 ) 

Single  precision  (R3)  -*•  double  precision  (R23) 

Xn  -  X  V  (R23) 

Branch  if  minus 


Accumulate  in  (R45) 

Branch  to  return 

Add  negative  of  Xn  -  7  to  accumulator  “ 

Return  for  next  data  entry 
( E | Xn  -  X|  )/N  -*•  (R5) 

Data  entry  is  12  bit  left  justified,  thus  I  bit  right  shift 
gives  same  scale  as  KCAL 
Return  to  main  program 


0343 

4030  0550  (0518-0552)  =  CONVERT  AA  IN  HEX  TO  DECIMAL  AND  PRINT  RESULT 
0722  [DAS]  __  __ 

08  35 
0744 

C8  60  000A  Increase  decimal  precision  of  AA  result  by  I  position 

0777  -  ' (05IC-052A) 

4130  3 4D4  [Overflows  if  AA  >  3/8  full  scale] 

48  60  03AC  ^  Recall  KCAL  to  (R67)  _ _ _ 

4870  03AE 

4  1B0  34D4  KCAL  x  AA(hex)  (  R234) _ __ _ _ 

0788  . . "  _vr . 

CD40  0001  _  _ 

0E38  Round  off  to  (R23)  and  put  in  (R45)  [EOT] 

oe28  _ _ _ ; _ _ _ 

08  53  . 

0842  _ _ 

4130  3300  Convert  AA(hex)  to  decimal 

4130  32D0  Print  result  at  TTY  _ 

C830  01C4 

030B  Return  to  main  program 

0000 

48 BO  0506 


I 

t 


055A  0303  . . . ' “7  .  ‘ . . . 

055C  0000  (0560-0634)  =  LEAST  SQUARE  FIT  TO  DATA  FROM  (0590)  to  (0590)  +  (0578) 

‘  05  5E  09 1C  [ECT] .  .  ““  . . . 

0560  C8E0  006C  0560  -  Entry  for  any  number  of  poi nt^* spec i  f  led  by  (0562) 

0564  4300  05 6C  ' 

0568  C8E0  0100  0568  -  Entry  for  usual  1 00x  addresses 

05 6C  08 OE 
.  056E  CEOO  0001 

0572  4000  0578  Calculate  number  of  points  and  store  at  (0578) 

0576  4200  0030 

057A  4030  0632  . : . . . ~  '  '  ' 

057E  C8D0  0002  Initialize  index  counters  (RE  already  set) 

058  2  C8C0  0002 
‘  058  6  0700 

0588  0711  Clear  accumulation  registers ” 

058 A  0744 

-  058 C  0755  .  . 

058 E  48 3 C  10A0  Recall  data  from  [(0590)  +  (RC)]  to  (R3) 

059  2  41  BO  3  624  Single  precision  R3  -*•  double  precision  R23 

0596  0A13 

r  0598  0E02  Double  precision  accumulate  into  ROI 

059 A  0C2C  iY.  -*•  R23 

059 C  0A53  ' 

059E  0E42  Double  precision  accumulate  into  R45 

05A0  C1C0  058 E  EY;  -►  ROI  2E i Yj  -*•  R45 

05A4  08 C4 

05A6  08 D5  Save  2Ei Yj  in  RCD  . . —  -  . . 

05 A8  08  40 

05AA  08  51  Save  ZYs  in  R45 

05AC  48  60  0578 
0530  CA60  0001 

05B4  41B0  3590  (N  +  I  )  ZYi  -*■  R45 

0538  0BD5  •  . . .  . 

05BA  0FC4  2E i Y.  -  (N  +  I  )  ZY .  =  X  -*•  RCD 

053C  08 4C 
CoBu  Co  50 

05C0  4830  0578  X/N  ->  R45 . .  r  . ~ . 

05C4  41B0  3  6A0 
05C8  C8  60  00  60 

05CC  41B0  359  0  60X/N  «*•  R45 

-  05 DO  48  30  0573 

'■  05D4  CA30  0001  6QX/[N(N  +!)]-»•  R45 

05D8  41B0  3  6A0  ~  _ 

05DC  C8  60  0010  600X/[N(N  +!)]-*•  R45 

05E0  4130  3590  . . .  ~  ' 

05E4  4830  0578 

05E8  C330  0001  _  _ 

05 EC  4130  3 6A0  600X/[N(N  +  I  )  (N  -  !)]-*>  R45  _ 

05 FO  C860  0010  _  . . . .  '  . . . 

05F4  4130  3590  6000X/[N(N  +  |)(N  -  I)]  =  1000a  -*•  R45 

05F8  08 C4  ' 

05 FA  OSD 5  Save  in  RCD 

05 FC  0840 

05 FE  08  51  Recall  ZYj  to  R45 

0600  48  30  0578  '  '  . . 

0604  4130  3  6A0  ZY./N  -*•  R45 

0608  C8  60  1000  “  “  . . 

060C  4 1  BO  3590  lOOOEYj/N  -*•  R45  _ _ _ 
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06.10  0804  Save  1000  ZY ."/N'in'RoT 

0612  08  15  1 

0614  4850  0578  Recall  N  to  (R5) 

0618  0200  Continue 

061A  CA50  0001  N  +1  ->  (R5)  ~ 

061 E  CE50  0001  (N  +  l)/2  -*■  (R5) 

0622  0865  Move  (R5)  to  (R6)  “  - - 

0624  084C  Recall  1000a  to  (R45) 

0626  08 5D  . ' . ~ . ” 

0628  41B0  3590  [  (N  +  l)/2][l000a]  -*  (R45) 

062C  0B 15 

062 E  0F04  1000[ZY./N  -  {(N  +  l)/2la]  =  1000b  ->  R01 

0630  C8B0  0330  1  . .  .  .  . . 

0634  03  0B  Return  to  main  program 

0636  0000 
0638  0000 
063 A  0000 


063C  0000  (0640-0658)  =  SET  PARAMETERS  TO  READ  STEP  ROUTINE 

063E  0000  [DAS] 

0640  40B0  0656  Store  return  address 

0644  C800  02 FA  Load  time  per  point  for  taking  step  data 

0648  4000  3038  from  (0646). to  (3038) 

064C  C800  0400  Load  number  of  points  to  be  taken  in  step 

0650  4000  302E  data  from  (064E)  to  (302E) 

0654  C830  009 E  Return 

0658  03 0B 

065A  40B0  0670  (065A-0672)  =  SET  PARAMETERS  TO  READ  ROUGHNESS  DATA 
065E  C800  0004  [DAS]  Load  time  per  point  for  taking  roughness 
0662  4000  3038  data  from  (0660)  to  (3038) 

0666  C800  2000  .  Load  number  of  points  to  be  taken  for  roughnes 

066A  4000  302E  '  data  from  (0668)  to  (302E) 

066E  C8B0  01AA 

0672  030B  Return 


GAS  2  4CB0  OAAC 
QA8  6  48  60  OBAC 
•  GAS  A  48  70  OBAE 
QA8E  4160  34D4 
t‘  0A9  2  41  BO  34D4 
t '  GA9  6  CS60  0000 
0A9A  C8  70  FAOO 
QA9E  08  53 
OAAO  08  42 
QAA2  4j BO  3300 
QAA6  41B0  32D0 
‘  GAAA  C8B0  0CA2 
GAAE  030B 
GABO  0000 
GAB 2  40B0  0AF2 
QAB6  C8  50  202D 
GABA  41 BO  314A 
GABE  D300  OEB 1 
0AC2  41 BO  3EA4 
OAC 6  CF10  0001 
QACA  CAl 0  0003 
QACE  08  51 
QADO  0744 
0AD2  4 1 BO  3300 
GAD 6  0823 
» ‘  0AD8  4160  3EF0 
5  ‘  ; OADC  C8  50  5351 
GAEO  41 BO  314A 
QAE4  4130  3110 
OAFS  C8  50  4D4D 
OAEC  4130  314A 
QAFO  C8B0  OCAE 
0AF4  03 OB 
OAF 6  FFFF  FFFF 
OAFA  FFFF  FFFF 
GAFE  FFFF  OOOC 
0802  003  6 
0B04  EE8  0  FFFF 
0E08  FFFF  OOOC 
OBOC  0000 
OBOE  OE 1 7 
OBI  0  0000 
OB .1 2  4120  0320 
OBI  6  0325 
OBI 8  032  6 
■  OBI A  0329 
r-  QBl  C  0330 
OBI E  032E 
0320  032F 
0E22  0316 
GB24  03  IB 
0B2  6  03 OC 
1  0E28  03.1 1 

0B2A  0319 
0B2C  032E 
GB2E  0312 
" 0B30  ODAB 
0B32  0DF8 


(0A82-0AAE)  =  MULTIPLY  (£34)  BY  KCAL2 •, . CONVERT  TO  DECIMAL 

[ECT]  AND  PRINT  RESULT  AT  TTY 

"Recall  KCAL  to  (R6 71”' . .  """  . 

Multiply  by  KCAL2  _  _ 

Multiply  by  constant  in  (0A98.0A9C) 

Move  result  to  (R45) 

Convert  result  to  decimal 
Print  result  at  TTY 

Return 

(0AB2-0AF4)  =  MULTIPLY  POWER  OF  10  IN  UNITS  BY  TWO  AND 
[ECT]  add  number  in  ( 0 ACC f TO  RESULT 

Print  space  and  -  sign  at  TTY 
Recall  byte  of  (OBBO)  containing  power  of 
ten  convert  ASCII  to  hexadecimal,  result 
Multiple  (Rl)  by  2  (Rl) 

Add  (OACC)'  to  (Rl) 

Move  result  to  (R5)  . . . . .  .  . 

Convert  result  to  decimal,  result  ->■  (R3) 

Move  to  (R2) 

Print  result  at  TTY 

Print  "SQ”  at  TTY  _ _ _ _ 

Print  space  at  TTY 

Print  "MM"  at  TTY 

Return 


(OBOO-OB04)  =  STORAGE  FOR  AVERAGE  WAVELENGTH  PARAMETERS 


(0B0A-0B0C)  =  INDICES  FOR  TAKING  AA  DATA 


(OBOE)  =  TEMPORARY  STORAGE  OF  AA  VALUE 

(0B14-0B5E)  =  STORAGE  FOR  AA  VALUES  FOR  STATISTICAL 

CALCULATIONS 


t 


« '  (B34  OEOA  .  . . .  I 

<•  GB3  6  ODED 

"  0B38  0DF9  '  ‘  '  ’  “  ‘ 

“■  0D33A  0E07 
0B3C  ODFC 
CB3E  0E09 

'  OB 40  0E15  . . . . “ . ' . . ' .  " . ~  “ . ~~  . 

-  0B42  0E29 

*  V  0344  0E1B  '  ”  ““  '  “  ‘  '  . 

QB46  OEOB 

"  0B48  OEOO  ~  • 

0B4A  0DD9 

0B4C  ODEA . . . ~ . . . ~ . " . ~ . ~ “ .  . . .  . ' .  . . . 

0B4E  ODEC 

OB50  OAAB  . ''  —  —  . . 

0B52  0A9 3 

'  0B54  0009  '  . . ' . . . . . . .  “ .  .  . 

0B56  0009 

"  OB  58  0009  . . . ' .  . . .  . “ . "  .  .  . 

0B5A  0009 

-  QB5C  OOOA  . . .  .  . . . . . . . .  '  '  . 

- 1  0B5E  OOOA 

C *  CB60  0756  (0B60-0B82)  =  STORAGE  FOR  DOUBLE-PRECISION  HEXADECIMAL 

f '  1  OB 62  4840  0755  VALUES  OF  HI,  H2 ,  H8  and  HM. 

•  0B66  E540  0755 

OB 6 A  8240  0755  ^  _  . 

0B6E  1F40  0754  . . . . 

0B72  BC40  0754 
‘  0B7  6  5940  0753 

0B7A  F640  0753 
0B7E  9  340 
038  0  0754 

QB82  EDCO  010E  . """ . .  "  ^  ~  . 

CB8  6  0320 
0B88  01 1 6 
0B8A  009 A 
GB8C  0118 
CB8E  0.1 4D  . 

OB90  .1102  1228  (0B90)  "  ="  Al ,  (0B92) . =  A2~'  . . 

0B94  1273  FFFF  (0B94)  =  HO  VALUE 

0B98  D9C0  FC3D  (0B96-8)  =  a  ~  '  “ '  ”  " 

*  :  CB9C  3000  FFFF  (0B9A-C)  =  b« _ 

OBAO  C940  0375  (OB9E-OBAO)  =  a~ 

• 1  r QBA4  7000  FFFF  (0BA2-4)  =  b, 

1 !  ‘  GBA8  FFFF  FFFF 

*  OBAC  0001  (OBAC-E)  =  KCAL 

CBAE  8000  2D35  (OBBO)  '  =  ASCII  CODE  UNITS  INPUT  AT  TTY 

0BB2  1111  FFFF  (0BB2)  =  MAIN  PROGRAM  FLAG 

QBB6  FFFF  40B0 

•_  OBBA  OBOE  .  (0BB8-0BD0)  =  PRINT,  "AVG."  AT  TTY 

OBBC  C8A0  314A  Load  print  subroutine  address  to  (RA) 

QBCO  C850  4156  _  Load  ASCII  code  for  "AV"  to  (R5) 

QBC4  01  BA  Print  "  " 

0BC6  C8  50  472E  _  Load  ASCII  code  for  "G."  to  (R5) _ 

OBCA  0 1 BA  Print 

OBCC  C8B0  0EA6 _ _ 

~  OBDO  03 OB  Return 

0BD2  40B0  OBEE 


> 

) 

) 

) 

t 

) 

I 

) 

) 

> 
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( 


I 

I 

•  GBD6 
OB  DA 

'  OBDE 
OBEO 
OBE4 

•  CEE  6 
OBEA 
06  EC 

'  CBFO 
CBF2 
'  CBF4 
0BF6 
.  '  “  0BF8 
CBFA 
‘  OBFE 
0C02 
OCO  6 

•  X08 

<  ■'  x.oc 

!'  XI 0 
K'OCJU 
!  XJ8 
XlC 
X1E 
X22 
■  X26 

•  X2A 
X2C 
X30 
X34 
X3  6 
X38 
X3C 
OCAO 
0CA2 
OCA  A 
OCA  6 
OCA  A 

•  "  X4E 

»  X52 

t  ‘  X  5  6 
M’  X58 

X5A 
X5C 
X60 
X62 
*  '  X66 

•  0C6A 
0C6E 
OC72 

“  X74 
X76 
X7A 
X7E 
X82 
X8  6 
~  X8A 
0C8E 


C8AO  314A 
C8  50  534C 
01BA 

C8  50  502E 
01BA 

C850  3D20 
01BA 

C8B0  0E74 
030B 
0000 
0000 
0000 
OEFF 

FFFF  C880 
2000  41B0 
3F44  0700 
07CC 

C8D0  0004 
C8E0  08  00 
C870  0002 
C8F0  0001 
C840  OOOF 
08  2C 

CE20  0003 
4280  0C2A 
C840  0000 
9AF4 

C880  2000 
C8  60  0002 
0B8C 
08  2C  . 

CA20  1000 
4020  0C50 
0733 
0744 
0755  . 
4896  1000 
CE90  0004 
4816  1 09C 
CE10  0004 
0C09 
0A51 
0E40 

Cl  60  0C4 6 
08  38 

CE30  0001 
41  BO  3  6A0 
CF40  OOOC 
CC50  0004 
0A45 

08  5 C . 

CE50  0001 
4045  0680 
C1C0  OC 18 
C8F0  0002 
4 1  BO  3A00 
48  3  0  0  68  0 
0744 


(0BD2-0BF0)  =  PRINT  "SLP."  AT  TTY  ~ 

[ECT]  '  _ _ _ _ _ 


(OCOO-OCFE)  =  PROGRAM  TO  CALCULATE  AND  PLOT 

[ECT]  THE  AUTOCORRELATION  FUNCTION  OF  DATA 

IN  MEMORY  LOCATIONS  1000  -3000  .  THE 

- - - ■■ - ~5i2rSHIFT  AUTOCORRELATION  FUNCTION  IS 

STORED  IN  MEMORY  LOCATIONS  0680-0A80 

- - - - - - CRL  ‘  - 

Clear  (RO) 

InitiaTize  the  "shift  register 

(0C06)  =  shift  increment,  here  it  equals 

- - -  twice  the  data  point  spacing. 

Initialize  summation  index  counter  increment 
'Load  panel  display  device  number  to  (RF) 

Load  "F"  to  (R4 ) _ _ 

Write  (turn  on  last  4  lights)  at  display 

. panel  "F"  when  (RC)  are  an  even  multiple  of 

4,  Write  "0"  when  (RC)  are  an  odd  multiple 

■ .  * . . . . . .  . .  •'  . . . .  •  of  4 

IntiaTize  summation  index  counter  final  value 
Intialize  summation  index  counter  initial  value 
2 (N-S)  ->  (R8)  as  new  limit  for  summation  index 
S  ->-(R2) 

Calculate  i  +  s  for  start  of  shifted  data 
Store  starting  value  of  i  +  s  at  (0C50) 


Initialize  accumulators;  R345  . 

Bring  data  point  into  R9;  [1000  +  (R9)  ]  ->-(R9) 

Shift  (R9)  right  arithmetic  4  bits  . . 

Bring  shifted  data  point  into  Rl;  (0C50)+(R6)  ->(R1) 

Shift  (Rl)  right  arithmetic  4  bits  _ 

Multiply  shifted  and  unshifted  data;  (Rl)  x  (R9)  ^(ROl) 

_f Overflows  if  RMS  >  1/3  Fullscale]  _ 

DP  accumulate  in  R45 
i=N-S 

y  ( i)  y ( i+s)  =-  (N-S) ACF  (s)-  (R45) . . . . 

N-S  +  (R3)  _ _  _ 

[1/(N-S).]  E  y (i)y(i  +  s)  =  ACF(s)  -»■  (F.45)  ;  S=0,2,4,- 

_ Shift  (R4 )  left  12  bits  arithmetic . . 

Shift (R5)  right  4  bits  logical 

_JR5)  +  (R4)  (R4)  =  1/16 1Q  ACF(s) _ .  . 

Adjust  the  shift  increment  to  obtain  proper  storage 

increment  which  should  be  2 _ _ _ 

(1/161Q)  ACF (s)  -*■  [0680  +  (R5)] 

...  .Return  to  calculate  next  ACF(s)  if.s  <  limit  _ 

Tond  TTY  device  number  to  RF 

Print  "VARIANCE  ="  at  TTY _ 

Recall  (1/1610)  ACF(s)  to  (R3) 


) 

> 

> 


) 

if 
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i 


w  vv.^  w 


0C9  0  07.11 
0C92  4010  0A98 
0C9  6  C8.10  FA00 
0C9 A  4.010  0A9C 
0C9E  4 1  BO  0A82 
0CA2  C810  0003 
OCA 6  4010  OACC 
OCAA  4 1B0  0AB2 
OCAE  48  20  0  68  0 
0CB2  0733 
0CB4  4030  OCDA 
0CB8  C420  7F8  0 
OCBC  4330  OCDO 
OCCO  CE20  0001 
0CC4  CA30  0001 
0CC8  4030  OCDA 
OCCC  4300  0CB8 
OCDO  C8  00  0  68  0 
0CD4  4000  3978 
0CD8  C800  0003 
OCDC  4000  397C 
OCEO  C8  00  007B 
0CE4  4000  3984 
0CE8  4000  398C 
OCEC  C8  00  0084 
OCFO  4000  399  0 
0CF4  C8  00  0400 
0CF8  4000  399  E 
OCFC  4300  3950 
ODOO  0200 
0D02  4130  31F8 
ODO  6  C8A0  314A 
ODOA  C8  50  204E 
ODOE  01 BA 
0D10  C8  50  203D 
0D14  0.1  BA 
0D16  41B0  30BA 
0D.1  A  0842 
0D1C  4130  3648 
0D20  4010  0D5E 
0D24  08  21 
0D26  CB20  0001 
0D2A  4020  0D9  0 
0D2E  CF10  0001 
0D32  4010  0D52 
0D36  4010  0D84 
0D3A  0711 
0D3C  0766 
0D3E  0777 
0D40  4831  OB  14 
0D44  41  BO  3  624 
0D48  0A73 
0D4A  0E62 
0D4C  CA10  0002 
0D50  C5 1 0  001C 
0D54  4280  0D40 
0D58  08  4  6 
0D5A  08  57 


Load  proper  constant  to  KCAL  routine 
to  account  for  3  bit  shift  in  KCAL  and 
4  bit  shift  in  ACF  calculation  8  x  8  x  16  =  1024? 
0.FA00x  =  1/1.024 

Multiply  by  KCAL  and  contant,  convert  to  Decimal 
and  print  at  TTY 

Increase  pcwer  of  ten  in  units  by  3 

Print  at  TTY;  2  x  power  of  ten  entered  at  units  query 

Begin  calculation  of  number  of  shifts  needed  in 

...  .  order  to  obtain  8  bit  plotting  accuracy 

Clear  accumulator  for  number  of  shifts 

Since  variance  always  +  test  top  8  bits 

It  top  not  zero  continue  shifting,  otherwise  branch 

...Shift  (R2)  right  1  bit _ _ _  w  to  plot 

Increment  (R3)  by  1 
Accumulate  shifts  at  (OCDA) 

Continue  shifting  (R2) 

(0CD0-0CD4)  =  Load  and  store  starting  address 
load  and  store  amount  data  is  to  be  shifted 
Load  and  store  maximum  value  to  be  plotted 


Load  and  store  bias  of  plot 

load  and  store  2X  number  of  points  to  be  plotted 

Plot  the  ACF  and  return  to  monitor 
(0D00-0DEC)  =  CALCULATE  MEAN  AND  VARIANCE  OF  N  AA  VALUES 

[ECT]  Print  "ENTER"  at  TTY 

. .. . .  Load  Print  routine  address  to  RA 

Load  ASCII  code  for  space  and  N  to  R5 

. . .  Print 

Load  ASCII  code  for  space  and  =  to  R5 
. _ . . . Print 

Read  4  characters  before  "space"  at  TTY  ->  R2 

. . . . Move  to  (R4)  _ _ _ _ 

Convert  to  hexadecimal;  resuits  -*•  (Rl)  =  N 
.  ...  .  _ _ _ _ Store  at  (0D5E) _ 


N-l  rt  (R2) 
N-l  -►  (0D90) 

2N  V  (0D52)  ~ 
2N  ±  (0D84) _ 


_ Clear  index  and  accumulator  registers 

Call  AA  value  from  f  0B14  +  (Rl) 1  to  R3 
SP  (R3)  DP  (R23) 


DP  accumulate  in  (R67) 


Loop  statements 

_ N _ 

Move  I  AA.  •>  (R45) 

— . .  i-1  .  1  . . 


0D5C  C830  OOOE 
0060  41B0  3  6A0 
0064  4050  0B8  6 
0D68  0  711 
0D6A  0766 
0D6C  0777 
00 6E  48  30  0B86 
0D72  4B31  OB 14 
0D7  6  08  53 
QD78  0C43 
007 A  0A75 
0D7C  0E64 
0D7E  CA10  0002 
0D82  C510  001C 
008  6  428  0  0D6E 
008  A  08  57 
008  C  0846 
008  E  C830  OOOD 
009  2  41B0  3  6A0 
009  6  4200  0000 
009  A  4050  0B8 A 
009 E  C440  7FFF 
0DA2  4230  3A30 
00 A 6  4JB0  3 F44 
ODAA  41  BO  39  04 
ODAE  48  50  0B8  6 
0DB2  4JB0  05.18 
0DB6  41B0  3110 
ODBA  48  50  03B0 
ODBE  41 BO  3A50 
0DC2  4.1  BO  3  F44 
ODC  6  41  BO  3A00 
ODCA  4830  038  A 
ODCE  0744 
ODDO  C8.10  0001 
0DD4  40.10  0A98 
0DD8  07.11 
ODDA  4010  0A9C 
OOOE  41  BO  0A8  2 
0DE2  0711 
0DE4  4.010  OACC 
ODES  41 BO  0AB2 
ODEC  4300  3C8 0 
QDFO  41 BO  3A50 
0DF4  C8  50  5351 
OOFS  41  BO  314A 
ODFC  4300  3C80 
OEOO  0722 
0E02  C830  0002 
0E06  C840  2000 
OEOA  48  62  1000 
OEOE  CE60  0001 
0Ej2  4062  1000 
0E16  Cl  20  OEOA 
OEi A  C820  2000 
0E1E  C830  FFFE 
0E22  C8  40  0000 
0E26  48  62  1000 


MV  (R3)  ~  . . . . . .  . .  ) 

l  AA^/N  =  SA  -*•  (R5)  -*■  (0B86) 

) 

Reset  index  and  accumulator  registers 


Itecall  M  +  (R3) 

AA  -  AAj_  (R3) _ 

Put  in  R5  also 
(AA  -  AAj_)2  +  R45 

E  (AA  -  AAj_) 2  -*  R67 

Loop  statements 


Move  E (AA  -  AA^) 2  to  R45 
N-l  ->  (R3)  _ 

Cl/(N-1)]  E  (AA  -  AA-j)2  =  VAR  VR45 
Store  result  at  0B8A 

If  result  not  positive  branch  to  "ERROR" 

CRL 

Print  "MEAN  AA  ="  at  TIY 
Recall  AA  to  (R5) 

Multiply  by  KCAL,  convert  to  decimal  and  print  at  TTY 

Print  space 

Recall  units  to  (R5) 

Print  units  at  TTY  _  _  .  _ _ 

CRL 

Print  "VARIANCE  ="  at  TTY 
Recall  var  to  (R3) 


Load  constant  to  KCAL2  routine 


) 

) 

> 

) 

) 

) 

) 


) 


Multiply  VAR  by  KCAL2,  convert,  to  decimal,  print  at 

TTY 


"Print  units  and  "SQ  MM"_at  TTY _ _ _ 

Return  to  monitor  ) 

(0E00-0EE0)  =  PROGRAM  TO  CALCULATE  THE"  AVERAGE'  SLOPE  AND 

[ECT]  WAVELENGTH  OF  PROFILE  IN  MEMORY  LOCATIONS  1000-3000  J 


Initialize  index  counter,  R2 

Recall  and  divide  [1.000  +  (R2TTby  2 

Restore  result  to  same  location 
Repeat  for  all  data  from  1000  thru  3000 

Reinitialize  R2  for  a  decrementing  counter 

Call  1/2  yn  +  (R6) _ _ _ _ _ 


l 
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0E2A  48  72  OFFE 
0E2E  OB 67  . 

0E30  40  62  1000 
0E34  C020  0E2  6 
0E3$  41 BO  04A0 
0E3C  4050  0300 
0E40  0722 
0E42  0835 
0E44  0744 
0E46  48  60  OBAC 
0E4A  48  70  OBAE 
0E4E  41B0  34D4 
'  0E52  C8  60  0003 

/  •  ‘  0E56  C870  0D40 

•  r‘  QE5A  41  BO  34D4 

0E5E  4030  0B02 

•  0E62  4040  0B04 
0E66  41  BO  3F44 
0E6A  0200 
0E6C  41 BO  0BB8 
0E7 0  41 BO  0BD2 
0E74  4840  0B02 
0E78  48  50  0B04 
0E7C  C830  03A2 
0E8  0  4.1  BO  3  6A0 
0E84  4iB0  3300 
0E88  4.1  BO  32D0 
0E8C  41B0  3110 
0E9  0  48  00  033.0 
0E9 4  CBOO  0001 
0E98  08  50 

0E9 A  4.1  BO  31 4A 
0E9E  4.1  BO  3 F44 
0EA2  4130  0338 

?'  0EA6  4130  0EE4 


Call  1/2  '+  (R7) . ” — "  . 

Calculate  ...  1/2  Ayn  =  1/2  (yn  -.yn_i) 

Store  1/2  Ayn  at  [1000  +  (R2) ] 

Repeat  for  all  data  from  3000x  down  to  1002x 
Calculate  AA  of  data  frcm  1002  through  3000 
Save  result  at  0B00  . . . . . . 

(0E40-0E50)  =  KCAL  X.  AA  of .  1/2.  Ayn  .  (R345) 


(0E52-0E5A)  =  (R34)  x  2  x  105  ->  (R234) 


Save  result  in  (0B02-0B04)._..=.  SLP 

CRL  .  .  _ _ 

Continue 

Print  "AVG."  . . ... . 

Print  "SLP.  =" 

Recall  SLP  and  divide  by  930^q 


Convert  result  to  decimal 

Print  result  at  TTY  • 

Print  space 

Recall  ASCII  code  for  power  of  ten  =  -P 
Calculate  -P-5  +  6  =  -P  +  1 

Print  -  P  +  1  at  TTY 
CRL 

Print  "AVG." 

Print  "WL.  =" 


} ’  0EAA 
0EAE 
0EB0 
0EB4 
0EB8 
0E3A 
OEBC 
OECO 
0EC4 
0EC8 
OECA 
OECC 
OEDO 
0ED4 
0ED8 
OEDC 
OEEO 
0EE4 
0EE8 
OEEC 
<’  OEFO 
*'  0EF2 
0EF6 


4840  0314 
0755 

4830  0B00 
41 BO  3  6A0 
08  34 
0845 

C8  60  0369 
C870  AE61 
4 1B0  34D4 
08  42 
08  53 

4J BO  3300 
41 BO  32D0 
4 1 BO  3110 
C850  2D36 
41  BO  3A58 
4300  3C80 

40B0  OEFA  (0EE4-0EFC) 
C8A0  314A  [ECT] 
C850  574C 
01  BA 

C8  50  3D20 
01  BA 


Recall  first  AA  value  stored 
(0B14)/(0B00)  =  2  AA/Ay 


WL  =  2tt  Ax  AA/Ay  =  ir  Ax 
tt  x  93010  =  2921. 68116810 


(0B14) 

(0B00) 

=  B69.AE6116 


Move  WL  to  (R45) 


Convert  WL  to  decimal 

Print  WL  at  TTY  _ _ _ 

Print  Space 

Load  -6  to  (R5)  _ 

Print  "-6  MM"  at  TTY 

Return  to  monitor 

ROUTINE  TO  PRINT  "WL.  ="  AT  TTY 
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0EF8  C8  30  1504  . . .  .  "" .  . . 

OEFC  03  OB 

OEFE  FFFF  4000  (0F00-0F3C)  =  REGISTER  STORAGE  FOR  ALL  REGISTERS 

0FO2  0F4A  [ECT]  EXCEPT  REGISTER  B 

0F04  4010  0F4E 

0F08  4020  0F52 

OFOC  4030  0F56 

OF!  0  4040  0F5A 

0F14  4050  0F5E  '  ~~  *  ’*  ™ 

OF! 8  40  60  0F62 

OF 1 C  4070  0F66  '  7  7 

0F20  408  0  0F6A 

0F24  4090  0F6E  . 

0F28  40A0  0  F72 
0F2C  40C0  0F7  6 
0F30  40D0  0F7A 
0F34  40E0  0F7F 
0F38  40F0  0F8 2 
0F3C  03 OB 
0F3E  0000 

0F40  0000  . .  . .  . . — . . . . 

0F42  0000 

0F44  0000  .  . . 

0F4  6  0000  .  (0F48-0F84)  =  RESTORE  CONTENTS  STORED  BY  OFOO 

0F48  C8  00  0001  [ECT] 

0F4C  C810  0047 
0F50  C820  FED7 
0F54  C830  01FF 
OF 58  C8  40  0000 
0F5C  C850  OOOD 
0F60  C8  60  0019 
0F64  C870  4778 
OF 68  C83  0  0000 
0F6C  C89 0  0400 
0F7  0  CC AO  3 1 4 A 
0F74  C£  CO  OCOA 

0F7S  CS  DO  0001  . '  . . . 

0F7C  C8E0  00 IE 
0F8  0  C8F0  0002 
0F84  03  OB 
0F8  6  0F6E 

0F88  4000  0FC4  (0F88-0FB4)  =  REGISTER  STORAGE  FOR  REGISTERS 

0F8C  4010  0FC8  [ECT]  -  0,  1,  2,  7,  8,  9,  A,  C,  D,  E,  and  F 

0F9 0  4020  OFCC 

0F9 4  4070  OFDO  . ~  . r  .  . . 

0F98  403  0  0  FD4 
0F9C  409  0  0FD8 
OFAO  40A0  OFDC 
0FA4  40C0  OFEO 
0FA8  40D0  0FE4 
OFAC  40E0  0FE8  . 

OFBO  40F0  0 FEC  _  _ _ _ _ 

0FB4  03 OB 
0FB6  0000 
0FB8  0000 

OFBA  0000  _ _ _ _ _ 

OFBC  0000 
OFBE  0000 
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OFCO  OOOO  . .  . . — - - - - — 

0FC2  C8  00  0000  (0FC2-0FEE)  =  RESTORE  CONTENTS  STORED  BY  0F88 

“  0FC6  C8  10  0000  [ECT]  . . . . . . — 

OFCA  C820  1098 

OFCE  C3  70  0002  . . . . . .  . " . — - 

0FD2  C88  0  1 F6S 

0FD6  C89  0  FFFE  . “  .  .  ” 

<  OFDA  C8A0  314A 

>  OFOE  C8C  0  0  098  . . .  .  "  ~  “ - - - - 

0FE2  C8D0  0004 
0FE6  C8E0  08  00 
OFEA  C8F0  0001 

OFEE  03  OB  . . '  " 

OFFO  0000 

0FF2  0000  .  ~ - - - 

0FF4  0000 

OFF 6  0000  . . . 

0FF8  0000 

OFFA  0000  . . 

OFFC  0000 

OFFE  0000  .  . . . . . . 

1000  09  58 

>  . ’  * . .  .  .  . 
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1500  0700 
1502  4000  2002 
1506  4 1  BO  0640 
150A  4 1B0  3010 
150E  C850  C9CE 
1512  4 1 BO  314A 
1516  4 130  3110 
151 A  ‘4130  31F8 
15 1 E  C850  5031 
1522  4130  314A 
1526  4130  3110 
152A  4130  303A 
152E  4020  2000 
1532  4 1B0  31F8 
1536  C850  5032 
153A  4130  3 14A 
153E  4130  3110 
1542  4 1  BO  30BA 
154  6.  4020  0390 
154A  4130  31F8 
154E  C850  5033 
1552  4130  314A 
1556  4130  3110 
155A  4130  303A 
155E  4020  0392 
1562  4130  31F8 
1566  C850  5020 
156A  4130  314A 
156E  4130  30SA 
1572  4020  2006 
1576  4820  0390 
1 57A  4320  2000 
157E  4020  0562 
1582  4820  2006 
153  6  4320  2000 
153 A  4020  2004 
158 E  4320  0562 
1592  CE20  0001 
159  6  4020  03  64 
159 A  4130  3 F44 
159  E  4820  0392 
15A2  4020  0590 
15A6  4 1  BO  0560 
15AA  40C  0  039 E 
15AE  40D0  03A0 
1532  4000  03A2 
1536  4010  03A4 
153 A  4820  2000 
15BE  4020  059  0 
15C2  4130  0560 
15C6  40C0  039  6 
15CA  40D0  0398 
15CE  4000  039 A 
15D2  4010  039 C 
15D6  4130  0350 
15DA  48  60  03AC 
15DE  4870  OBAE 
15E2  0722 


(1500-1670)  =  PROGRAM  FOR  MEASURING  THE  HEIGHT  OF  3  CONSECUTIVE  STEPS 
LECT]  Initial  ize  loop,  counter  =  RO 

. Set  parameters  for  takinq  step  data  . . ! 

Wait  for  an  interrupt  and  then  take  data 

Load  "IN"  .  •  . . ’■ . 

Print 
Print  SP 

( 1 51  A- 1 528)  =  Print  "Enter  PI"  +  SP 


Read  4  characters  at  TTY  and  store  at  (2000) 
(1532-1540)  =  Print  "ENTER  P2"  +  SP 


Read  4  characters  at  TTY  and  store  at  (0B90) 
( I54A-I558)  =  Print  "ENTER  P3"  +SP 


Read  4  characters  at  TTY  and  store  at  (0B92) 
(1562-1560  =  Print  "ENTER  P" 


Read  and  store  at  (2006) 

(1576-1570  =  Calculation  of  2X  number  of  data 
Points  for  LSO  fit  =  P2  -  PI 
Store  result  at  (0562) 


P-PI  =  Period  of  wave  ->  (2004) 

Number  of  points  -*  (0364) 

CRL _ _ _ _ _ _ _ _ _ _ _ 

RecaUI  and  store  starting  address  of  LSO  fit 
LSO  fit  to  data  from  (0B92)  to  (0B92)  +  (P2  -  PI) 

_  ( 1 5AA- 1 5B8 ) .  =  Store  ja.2 ( i )  and  b2 ( i ) _ _ _  _ _ _ 

Reca I  I  and  store. new  start i ng  address  for  LSO  f } t 
_JLSQ,  f  it. to. data  from  (2000)  to  (2000)  +  (P2  -  PI  ) 

(  1 5C6- 1 504 )  =  Store  a  I (Y)  and  bY( i )’ 

Calculate  step  height  in  hexadecimal 
Reca  M  KCAL  to  R67 


15E4  4830  0B30 
15ES  4840  0382 
15EC  4 1 BO  34D4 
15F0  C8 60  0003 
15F4  0777 
15F6  4130  34D4 
15FA  0777 
15FC  CA40  8000 
1600  0E3  7 
1602  0E2 7 
1604  0853 
1606  0842 
1608  4180  3300 
1 60C  4 1  BO  32D0 
1610  4130  3110 
1614  4820  2000 
1618  4A20  2004 
16 1 C  4020  2000 
1620  4820  0390 
1624  4A20  2004 
1623  4020  0890 
1 62C  4320  0892 
1630  4A20  2004 
1634  4020  0392 
1638  4820  2002 
163C  CA20  0001 
1640  4020  2002 
1644  C520  0003 
1643  423  0  1  59  E 
1 64C  4180  31D6 
1  6  c  0  4  1  dG  oi38A 
1654  C50C  Ou4E 
1658  4330  1664 
1 65C  4130  3  F44 
1660  4300  1500 
1664  C3  10  003  0 
16 63  4010  0364 
1660  4300  3C8 0 
1670  408  0  D3  70 
1674  D8  70  DS AO 
1678  DS 30  D8C0 
167C  D3  80  DSAO 
1680  D88 0  D870 


Recal  I  HM(  I )  to  R234  . . 

Multiply  HM(  i )  by  KCAt .  . 

Multiply  result  by  8  account  for  the  3  bit  shift  in 
obtaining  KCAL 

Round-off  result  to  double  precision  accuracy  and  move 
result  in  R45 


Convert  result  to  decimal  value  and  print  value 
Print  SP  - - - - - - * .  ' 


P  +  I (P  -  PI )  ->  (2000) 


P2  +  t (P  -  PI  )  ->  (OB90) 


P3  t  } (p  -  P3)  -»  (0B92 ) 


(I638-I64A)  =  Loop  statements 

Print  "MORE?" 

Read  one  character  at  TTY 
Compare  with  a  N 

Branch  to  exit  if  equal,  otherwise  continue 

CRL  ...  . . __ . . 

Return  to  start 

Reload  usual  no.  of  points  for  step  routine  to  (0364) 
Return  to  monitor 
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9S00 '  I  SO  Q  MO 
c;j4  4180  3010 
2508  C8  50  C9CE 
250C  4  I  SO  3 14A 
2510  C810  1000 
2514  4010  0B9  4 
2518  C810  11C2 
25 1C  4010  0390 
2520  C8 10  1244 
2524  4010  0392 
2528  4130  0300 
252C  4 1 BO  0400 
2530  4300  2543 
2534  41B0  3010 
2538  C8  50  C9CE 
253C  4 1B0  314A 
2540  4180  3  F44 
2544  4 1  BO  0300 
2548  C8A0  32D0 
254C  4820  0B9 6 
2550  4830  0398 
2554  01 BA 
2556  4 1 BO  3110 
’  25 5 A  4820  0S9A 
255E  4830  0B9C 
2562  01  BA 
2564  41  BO  3110 
'25  63  4  8  2  0  039  E 
25  6C  48  30  OBAO 
2570  0 1  BA 
2572  4130  3110 

257  6  48  20  0BA2 
257A  4830  03A4 
257 E  013A 

258  0  4130  3  1  10 
2584  4320  OSAC 
2588  48  30  03AE 
258 C  01  BA 

258 E  41  BO  3110 

259  2  48  20  0B8  0 
259  6  4830  0B82 
259 A  01  BA 

259 C  41  BO  3  F44 
25A0  4 1  BO  3240 
25A4  41 BO  3 F44 
25A8  41  BO  0440 
25AC  41  BO  3F44 
25B0  4300  2534 
25B4  0000 


(2500-25B2)  =  PROGRAM  FOP  OBTAINING  STATISTICS  ON  STEP  HEIGHT  PROGRAMS 
i_ECT!]  parameters  for  step  heLght  data  Input 

Wait  for  an  interrupt  and  read  data 

Load  "IN"  . .  . . 

Print 

Load  and  store  1000  as  HO 

Load  (25IA)  and  store  as  A I 

. . Load  (2522 )  arid  store  as~A2 

Calculate  step  height  in  hex 
Calculate  KCAL  assuming  1000  for  HO 
Branch  to  printing  part  of  program 
Wait  for  an  interrupt  and  read  data 
Load  "IN" 

Print 

CRL 

Calculate  step  height  in  hex 
Load  print  routine  address  to  (RA) 

Load  slope  ai  to  (R23) 

Print  (R23) 

Print  SP 

Load  intercept  bl  to  (R23) 

Print 
Print  SP 

Load  Slope  a2  to  (R23) 

Print 
Print  SP 

Load  intercept  b2  to  (R23) 

Print  . . . .  . . . . . 

Print  SP 


Load  KCAL  to  (R23) 

Print  _  . 

Print  SP 

Load  HM  (hex)  to  (R23) 

Print  _  .  _  _ _ 

Print  CRL 

Print  "HI - H3 - H5 - H7---HM" 

Print  CRL 

Convert  hex  steps  to  decimal  and  print 
Print  CRL 

Repeat _ _ _ 


3010 

40B0 

30 1 E 

(3010-3020)  = 

3014 

41B0 

306E 

[DAS] 

3018 

4 1  BO 

3022 

. . .  ■'*  <*'t 

30 1C 

C830 

0138 

3020 

03  OB 

(3022-3060  = 

3022 

4030 

306A 

[DAS] 

302  6 

07CC 

3028 

C8D0 

0002 

302C 

C8E0 

2000 

. . . .  ‘ "  ' 

3030 

0766 

3032 

C8  70 

0001 

3036 

C88  0 

0004 

303A 

C89  0 

0000 

303  E 

C8  FO 

000A 

3042 

DEFO 

30  64 

304  6 

DEFO 

3065 

304A 

9AF9 

304C 

DBFC 

1000 

3050 

DBFC 

1001 

3054 

Cl  60 

3054 

3058 

0766 

30  5 A 

C1C0 

3  04 A 

305E 

CS  FO 

0002 

3062 

4200 

9  08  6 

3066 

9  FI  2 

3068 

C8B0 

30 1 C 

30  6C 

03  OB 

306E 

40B0 

30AE 

(306E-30B8)  = 

3072 

C800 

0000 

[DAS] 

3076 

4000 

0044 

307A 

C800 

309  6 

30  7  E 

4000 

0046 

3082 

C8  FO 

000A 

308  6 

DEFO 

30B2 

308  A 

DEFO 

30B4 

308  E 

C200 

3  09  2 

3092 

COOO 

3C8  0 

309  6 

0200 

3098 

DEFO 

3036 

309  C 

C8C0 

0000 

30  A0 

C8D0 

0001 

30A4 

C8E0 

2F00 

30A8 

C1C0 

30A8 

30AC 

C830 

3018 

3030 

030B 

30B2 

1000 

4000 

30B6 

8000 

8000 

30BA 

40B0 

30E2 

(30BA-30E4)  = 

30BE 

4  1  BO 

3E8A 

[DAS] 

30C2 

C500 

00A0 

i 

30C6 

4330 

30E0 

30CA 

C500 

008  D 

1 

30CE 

4330 

30E0 

3002 

4 1  BO 

3EA4 

1 

30D6 

CD20 

0004 

30DA 

0621 

30DC 

4300 

30BE 

30E0 

CSBO 

0106 

( 

=  ROUTINE  TO  WAIT  FOR  AN  INTERRUPT 7  THEN  READ  DATA 


ROUTINE  TO  LOAD  DATA  FROM  ANALOG  TO  DIGITAL  CONVERTER 
(ADC) 

Initialize  index  counters  with_(302E)  being  number  of 
data  points  to  be  loaded 


Initialize  delay  counter  with  delay  being  determined  by 

(3038)  _ 

ADC  channel  number  -*•  R9 
Device  number  ■+•  RF 

Initial  i  z  i  ng  comma  nd~  by te~(  3064  )  -*•  ADC 
Enabling  command  byte  (3065)  ■+  ADC 
ADC  channel  number  to  be  read  ■+■  ADC 
Read  one  byte  from  ADC  -►  Cl 000  +  (RC)] 

Read  one  byte  from  ADC  -*•  [1001  +  (RC)] 

Delay  before  reading  next  point  _ 

Reset  delay  counter 

Loop  for  a  I  I  data  _ 

Restore  TTY  device  number  to  RF 
Storage  for  device  commands 

Set  condition  codes  (c.c.)  and  clear  interrupt  conditions 
Return  to  main  program 

WAIT  FOR  AN  INTERRUPT  AT  ADC  MARK  TIME  FOR  I  SECOND 
THEN  EXIT 

Load  and  store  new  program  status  word  c.c. 

Load  and  store  new  program  status  word 
(address  to  jump  to  on  interrupt) 

Load  ADC  device  number  to  RF 

Initialize  interrupt  at  ADC  (30B2)  -*■  ADC 

Enable  interrupt  at  ADC  (30B4)  -*■  ADC 

Load  current  program  status  word  to  R0 

Wait  state:  Branch  to  monitor  upon  execute  at  console 

Conti nue 

Send  disable  interrupt  command  to  ADC 


second  delay  (30A6)  determine 


Set  up  counters  for  I 
delay 

Mark  time  I  second 
Return  to  main  program 


Storage  for  device  commands _ 

ROUTINE  TO  READ  4  HEX  CHARACTERS  AT  TTY  INTO  R2 
Read  one  character  at  TTY 
Compare  with  ASCI  I  code  for  space 
Exit  if  equal 

Compare  with  ASCI  I  code  for  CR 
Exit  if  equal 

Convert  input  character  ASCII  to  hexadecimal 
Shift  left  logical  (R2)  4  bits 

Logical  OR  (Rl  )  with  (R2^__ _ 

Loop  and  read  until  SP  or  CR  appears 


30E4 
30E6 
30EA 
30  EE 
!  30F2 
1  30F4 
30F6 

30  FA 
30FE 
3102 
3104 
3108 
3 10C 
31 OE 
3112 
3116 
3118 
31 1C 
3120 
3122 
3126 
312A 
312E 
3132 
3136 
313A 
313E 
3142 
3146 
3148 
314A 
314E 
3150 
3154 
3158 
315C 
315E 
3162 
3166 

31  6A 
31  6C 
316E 
3170 
3174 
3178 
317C 
317E 

•3182 
3184 
3188 
318A 
318E 
3190 
3194 
3198 
319C 
”'31  AO 
31A4 


030B 
4220 
3  1 OA 

3  ESA 
0000 
08  50 
CD50 
4 1  BO 
4200 
0A50 
4050 
C830 
0303 
C8A0 
31  IE 
OOAO 
4 1B0 
C8B0 
0303 
4030 
C8C0 
C8D0 
C8E0 
C8  50 
4.1  BO 
C1C0 
4130 
C8B0 
0303 
03  24 
4030 
08  05 
C400 
CCOO 
4130 
0305 
C400 
4 1  BO 
C830 
0303 
074A 
075A 
40B0 
C8A0 
C8  50 
013A 
C8  50 
0 1BA 
C850 
0  13A 
C8B0 
0303 
4030 
C8  50 
41B0 
41B0 

4  1B0 
41B0 


(30E8-3I OC) 
4080  [DAS  &  ECT] 
4  1  BO 
4200 


0008 

3E8A 

0000 

0B30 

0006 

4030  (3110-3120) 
C800  [DAS] 

3E8  0 
3142 


ROUTINE  TO  READ  TWO  CHARACTERS  AT  TTY  AND  STORE  ASCII 
CODE  AT  OBBO 

Read  one  character  Into  (RO  bits  8-15) 

Move  to  R5 

Shift  contents  of  R5  8  bits  left  logical 
Read  another  character  into  (RO  bits  8-15) 


Add  to  contents  of  R5  _  _ _ 

Store  at  OBBO 

Return 

PRINT  SINGLE  SPACE  ROUTINE 

Put  ASCII  code  for  SP  in  (RO) 

Print  character  From  bits  8-15  of  (RO) 
Return 


(3122-3146) 

[DAS] 


(3I4A-3I6A) 

[DAS] 


3144 

0001 

0001 

0003 

AOAO 

314A 

3132 

3110 

0216 


3  1  68 

FFOO 

0008 
3E8  G 

OOFF 
3E8  0 
0258 


(3170-31  8E) 
3 18  C  [DAS J 
3  14A 
D5CE 

C9  54 


D3A0 

3  1A4 

31AA 
C1C1 
3  14A 
3122 
3170 
3  F44 


=  PRINT  2N+I  SPACES  ROUTINE 

Initialize  index  counter  for  number  of  spaces  (3130) 

Put  ASCII  Code  for  2  spaces  in  (R5) 

Print  at  TTY  (R5) 

Loop  for  desired  number  of  spaces. 

Print  SP 

Return  to  main  program 


PRINT  TWO  HEX  CHARACTERS  ASCII  CODE' IN  (R5) 

(R5 )  -*•  (RO)  _  . . . 

Mask  off  8  bits  on  left  of  (RO) 

Shift  (RO)  right  8  bits 

Print  right  byte  of  (RO)  at  TTY 

(R5)  -*•  (RO)  again 

Mask  off  8  bits  on  right  of  (RO) 

Print  . . . . . _ . . . . 

Return 


(3 1 90-3 1  AC) 
[DAS] 


=  ROUTINE  TO  PRINT  "UNITS" _ 

Address  for  print  two  hex  characters 
ASCI  I  code  for  UN  -*•  (R5) 

Print  _ 

ASCII  code  lor  IT -*>  (R5) 

Print  _  _ 

ASCII  code  for  S  space  -*•  (R5) 

Print _ _ 

~  'Return 


ROUTINE  TO  PRINT  "AA 
ASCI  I  code  for  AA  -»•  (R5) 
Print 

Print  seven  spaces 

Print  "UNITS"  . . 

Print  CRL 


UNITS"  +CRL 


31A8 

C8B0 

01A6 

Return 

- 

31  AC 

03  03 

31AE 

28  50 

40B0 

(31 B0-3I D4) 

=  ROUTINE  TO 

PRINT  "H  OR  R?" 

31B2 

31D2 

C8A0 

Cdas3 

Print  routine  address  -» (RA) 

31B.6 

314A 

C850 

ASCI  1  code 

for  H  space  (R5)  . 

3 1BA 

C8A0 

0  1BA 

Print 

31BE 

C8  50 

CFD2 

ASCI  1  code 

for  OR  -»  (R5) 

31C2 

01  BA 

Print 

31C4 

C8  50 

A0D2 

ASCI  1  code 

for  space  R  -> (R5) 

31C8 

0 1BA 

Print 

31CA 

C8  50 

3  FAO 

ASC 1 1  code 

for  ?  space  -»  (R5) 

31CE 

0 1BA 

Print 

31D0 

C8B0 

0 18  A 

Return 

31D4 

0303 

31 D6 

40B0 

31F2 

(3ID6-3IF4) 

=  ROUTINE  TO 

PRINT  "MORE?" 

3  IDA 

C8A0 

3  14A 

[DAS] 

Print  routine  address  -*  (RA) 

3  IDE 

C8  50 

CDCF 

ASCII  code 

for  MO  -»  (R5) 

31 E2 

0 1BA 

Print 

31 E4 

CS  50 

D2C5 

ASCI  1  code 

for  RE  ->  (R5) 

31E8 

0  1BA 

Print 

31EA 

C8  50 

3  FAO 

ASCI  1  code 

for  ?  space  (R5) 

31EE 

0  1BA 

Print 

31 FO 

C830 

02 1 A 

Return 

31F4 

0303 

31F6 

3D  62 

40BO 

(31 F8-32I6) 

=  ROUTINE  TO 

PRINT  "ENTER" 

31  FA 

3214 

C8A0 

[DAS] 

31  FE 

3  14A 

C850 

3202 

C5CE 

013A 

3206 

CS  50 

D4C5 

320 A 

0  1 SA 

320C 

C8  50 

D2A0 

3210 

0 1  BA . 

3212 

C830 

00F6 

3216 

0303 

3213  4030  3234  (3218-3236)  =  ROUTINE  TO  PRINT  "DATA" 

32 1C  C8A0  3  14A  [UASJ 

3220  C8  50  C4C1  .  . . . . ~~ . . . .  i 

3224  01 BA 

3226  C8  50  D4C 1 .  : .  .  "  — ----- - . 

322A  01 BA  , 

322C  C850  2 FAO  . 

3230  01  BA  _ 

3232  C8B0  009A  ~  > 

3236  030B 

3233  0C49  . .  -  .  — 

323A  CD40  0001  __  j 

323E  CD50  4030  (3240-327E)  =  ROUTINE  TO  PRINT  "HI - H3 - H5 - H7 - HM" 

3242  327C  C8A0  TECTJ  _ _  _  _ _ 

3246  314A  C850  "  ~  "  "  ) 

324A  C8B1  0 1BA  _ _ 

324E  4 ISO  3122  ‘  "  ~  . . 

3252  C8  50  C8B3  . .  ...  _  __  _ _  _  ) 

3256  0 1  BA 

3258  41B0  3122  _  _ 

325C  C8  50  C865  "  '  .  ) 

3260  0 1  BA 

3262  4 1  BO  3122  ~  " . " 

3266  C850  C8B7  » 
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I 

(  ■ 

'■  32  6A  01  BA  . . . .  . .  . .  . . . . . ' .  . 

326C  4 1B0  3122  __  _ 

'  3270  C8  50  C8CD  .  . . . . 

3274  013A 
3276  4 1B0  3122 
32 7 A  C8B0  0116 
32 7 E  030B 

•  3280  A0D3  D4C5  (3280-32A2)  =  ASCII  CODE  FOR  "STEP/ROUGHNESS  CALIBRATION" 

'  3284  DOAF  D3D5  . . 

3288  D2C6  C1C3 

328 C  C5A0  D2CF  .  .  " . 

3290  D5C7  CSCE 
3294  C503  D3A0 
3298  C3C1  CCC9 

*  329  C  C2D2  C1D4  '  ’  '  . 

32A0  C9CF  CEAO 

32A4  40B0  32C8  (32A4-32CA)  =  ROUTINE  TO  PRINT  "STEP/ROUGHNESS  CALIBRATION"  CENTERED 


32A8 

41B0 

3122 

[DAS] 

ON  PAGE  . 

32AC 

C8C0 

0000 

) 

32B0 

08  DO 

0002 

Initialize  index  counters 

32B4 

C8E0 

0022 

32B8 

C8A0 

314A 

Put  print  routine  address  in  (RA) 

* 

32BC 

48  5C 

3280 

[3280  +  (RC)]  -*  R5 

32C0 

0  13A 

Print 

32C2 

C1C0 

32BC 

Loop  for  all  characters 

) 

32C  6 

C8B0 

008  A 

return 

32  C  A 

030B 

32  CC 

CE40 

0001 

(32D0-32F0)  = 

ROUTINE  TO  PRINT  HEXADECIMAL  FORM  OF  CONTENTS  OF  R2 

? 

32D0 

40B0 

32EE 

[DAS] 

AND  R3 

32  D4 

08  51 

32D6 

OS  62 

Save  (R2)  and  (R3)  in  R6  and  R7 

\ 

32  D8 

08  73 

32  DA 

0200 

32DC 

4200 

0000 

) 

32E0 

08  2  6 

( R6 )  -»  (R2) 

32E2 

4  ISO 

3  EFO 

Print  Hexadecimal  form  of  (R2) 

32E6 

08  27 

( R7 )  -►  ( R2 ) 

i 

i 

32  E8 

4  1B0 

3EF0 

Print  Hexadecimal  form  of  (R2) 

32EC 

C8B0 

054E 

Return 

32  FO 

030B 

) 

32  F2 

0E48 

32  F4 

4300 

28  58 

- 

32  F8 

0000 

) 

32  FA 

0000 

32  FC 

0000 

(3300-33FE )  = 

ROUTINE  TO  CONVERT  BINARY  NUMBER  IN  R45  TO  DECIMAL  IN 

32  FE 

0D72 

[CEK] 

R | 23  [USES  (R8)  AS  INDEX  TO  STORE  RESULT  IN 

) 

33  00 

40B0 

33FC 

.  MMY  STARTING  AT  ADDRESS  IN  (336A)] 

3304 

4 1B0 

0F1  0 

Save  registers  4  to  F  _  _ 

33  08 

0788 

) 

330 A 

0200 

33  OC 

4200 

0000 

3310 

4200 

0000 

) 

3314 

C8F0 

8000 

Load  1  into  0  bit  of  RF 

3318 

04  F4 

Logical  and  0  bit  of  RF  and  R4  for  sign 

331 A 

4330 

332E 

Branch  if  + 

33  IE 

0700 

Clear  RO 

3320 

C740 

FFFF 

Complement  CR4J  andFlRF) 

3324 

C750 

FFFF 

*. 
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3328  CA50  0001 
332C  0E40 
332E  07CC 
3330  C8D0  0004 
3334  C8E0  0014 
3338  0700 
333 A  089  4 
333C  08A5 
333 E  434C  3530 
3342  4210  335C 
'  334  6  0849 
3348  4B5C  3532 
334C  4F4C  3530 
3350  4210  335C 

. 3354  CA00  0001 

3358  4300  333A 
‘  33  5C  0849 
33  5E  08 5 A 
3360  CCCO  0002 
33  64  08  BC 
33  66  0A38 
3368  D203  3550 
336C  COCO  0002 
3370  C1C0  3338 
3374  C8D0  0002 
3378  C8E0  001C 
33 7 C  0700 
33 7 E  08A5 
3380  4B5C  3530 
3384  4210  3390 
3388  CAOO  0001 
338 C  4300  337E 
339  0  08  5A 
3392  CCCO  0001 
339  6  08  3C 
3398  0A38 
339 A  D203  354A 
339 E  CDCO  0001 

•  33A2  C1C0  337C 
33A 6  D318  3550 
33 AA  CD 10  0004 

_  33AE  D308  3551 
33B2  0610 
33B4  061  F 
‘  33B6  D328  3552 
33 BA  CD20  OOOC 
33BE  D308  3553 
33 C 2  CDOO  00u8 
33C6  0  620 
33C8  D308  3554 

*  33CC  CDOO  0004 
33D0  0620 
33D2  D308  3555 
33D6  0620 
33D8  D338  3556 
33DC  CD30  OOOC 

~  33E0  D308  3557 
__  33E4  CDOO  0008 


Complete  2’s  complement  -----  -  -  .  . 

Add  carry  to  R4 

"  Clear  RC  - - - - - - - ~ - 

Put  Increment  in  RD 

Put  limit  to  get  first  6  powers  of  10  In  RE* 

Clear  RO 

Save  (R4)  and  (R5)  in  R9  and  RA 

Subtract  power  of  10, [3530  +  TRC)X'f rom  (R4)  ' 

Branch  if  result  is  negative 
Restore  R4  " 

Subtract  power  of  I 0,[3532  +  (RC)]  from  (R4f5) 

Branch  if  result  is  negative 

Add  Tto  (RO) - - ■ -  ’ - 

Loop  for  more  subtractions 

Restore  original  contents  'to  R4'_and_R5 

Divide  (RC)  by  4 
Put  (RC)  in  RB 

Index  (RB)  by  (R8)"“ . " . . — . 

Store  [R0(8:I5)]  at  3550  +  (RB) 

Multiply  (RC)  by  4  . . 

Loop  for  next  power  of  10 

Reinitialize  increment  and  limit  for  remaining  power 
of  10 

Clear  RO  “  . .  ’  '  . 

Save  R5 

Subtract  power  of  1 0 , C3530  +  (RC)3,  "from  (R5) 

Branch  if  result  is  negative 

Add  I  to  (RO)  -  - - - 

Loop  for  more  subtractions 

Restore  original  contents  of  R5  ” 

Divide  (RC)  by  2 

Put  (RC)  into  (RB)  .  . 

Index  (RB)  by  (R8) 

Store  CR0(8:I5)J  at  354A  +  (RB) 

Multiply  (RC)  by  2 

Loop  for  next  power  of  TO” . . 

Put  1 0**9  place  value  ([3550  +  (R8)]  -*■  [Rl  (8:15)3)  in  R1 
Shift  left  I  digit  (Rl ) 

Put  1 0**8  place  value  ([3551  +  (R8)3  [R0(8:I5)])  in  RO' 

"Logical  OR  (RO)  with  (Rl )  into  Rl 
Logical  OR  siqn  bit  with  (Rl )  into  Rl 
Put  10**7  place  value  ([3552  +(R8)j  +  CR2<8: 15)3)  in  R2 
Shift  left  (R2)  3  digits 

Put  10**6  place  value  ([3553  +' (R8)3^r[R0(8: 15)3)  in  RO 

Shift  left  (RO)  2  digits 

Logical  OR  (RO)  with  (R2)  Into  R2 

Put  10**5  place  value  ([3554  +  (R8)3  -*■  [R0(8:I5)3)  in  RO 

Sh  I  ft  I  eft  ( RO ) . I  d  I'g  i  t  “ 

OR  result  into  (R2) 

Put  10**4  place  val  ue,  ([3555  T '(R8)1  ^ [R0(8: 1 5)3)  in 
OR  result  into  (R2) 

Put  10**3  place  value,  (t3556  +  (R8)3 [R3(8: 1  5)3)  in  R3 
Shift  left  3  digits 

Put  10**2  place  vaTue  (T3 5 57TnTR'QT3-+rTR0( 87 15)3)  in  RO 
Shift  left  2  digits _ _ 


33  E8  0  630 
33 EA  D3  08  3  558 
33 EE  CD00  0004 
33F2  0630 

33  F4  0  635 
33F6  4  1  BO  0F5S 
33 FA  CS30  0482 
33 FE  0303 
3400  4030  3406 
3404  4200  0710 
3408  4030  34CC 
34 OC  4000  34A4 
3410  4010  3 4 AS 
3414  4020  34AC 
34)8  4030  34B0 
341 C  4040  3434 
3420  4060  3438 
3424  4070  34BC 
3428  40A0  34C0 
342C  40C0  34C4 
3430  40D0  34C8 
3434  0700 

343  6  08  15 
3438  C410  0001 
343C  07CC 
343  E  08  D 1 
3440  0722 
3442  OS  39 
3444  C430  0001 
3448  0CC3 
344 A  0733 
34 4 C  CC9  0  0001 
3450  CC50  OOG 1 
3454  0C09 

34  5  6  0C2 5 
34  d3  0C6 o 

34 5 A  CDS  0  0C-C2 
345E  08  79 
3460  C470  C000 
3464  CC70  OCOE 
34  68  0A8  7 
346A  CD9 0  0002 
346E  CDOO  0001 

3472  08  71 
3474  C470  8000 

3473  CC70  OOOF 
347 C  0A07 

347 E  CD 1 0  0001 
348  2  0A9  1 
348  4  0E8  0 

348  6  CD20  0001 
348 A  08  73 

348 C  C470  8000 
3490  CC 70  OOOF 
3494  0A2  7 

349  6  CD30  0001 
349 A  0A9  3 

349  C  0E8  2 


OR  result  Into  (R3)  -  -  - 

1 0**1  place  value  +  CRO  ( 8 : 1  5  >  U 
Shift  left  (RO)  Id  I  git 
OR  result  into  (R3) 

OR  (R5)  =  10**0  place  value  Into  (R3) 
Restore  registers  4  -+■  F 
Return  to  main  program 


(3408-34CE)  =  ROUTINE  TO  MULTIPLY  UNSIGNED  (R5)  x  (R9)  -►  (R89) 
[DAS] 

Save  all  registers  not  used  ar>  input  or  output 


Clear  RO 
Shift  (R5)  to  Rl 

Last  bit  of  (R5)  -*■  (Rl),  logical  AND  operation 
Clear  RC 

Shift  (Rl)  to  RD 
Clear  R2 

Shift  (R9)  to  R3 

Last  bit  of  (R9)  (R3),  logical  AND  operation 

Last  bit  of  (R5)  x  Last  bit  of  (R9)  -*•  RD  =  PO 
Clear 

Shift  (R9)  right  I  bit  logical 

Shift  (R5)  right  I  bit  logical 

Last  bit  of  (R5)  x  I  bit  shifted  (R9)  -*  ROI  =  PI 

Last  bit  of  (R9)  x  I  bit  shifted  (R5)  -*  R23  =  P2 

I  bit  shifted  (R9)  x  I  bit  shifted  (R5)  -*  R89  =  P3 

Shift  (R8)  2  bits  left  logical 

Move  contents  of  R9  -*■  R7  (product  result) 

Pick  off  two  high  bits  of  right  product  result,  P3 

Shift  these  two  bits  14  bits  to  right 

Add  then  to  left  part  of  product  result  P3 

Shift,  right  product  result  2  bits  left 

Shift  left  product  result  of  PI  I  bit  left 

Move  right  product  result  of  PI  to  R9 

Pick  off  high  bit  of  right  product  result  of  PI 

Shift  this  bit  15  bits  to  right 

Add  to  left  product  result  of  PI 

Shift  right  product  result  of  PI ,  I  bit  left 

Add  shifted  right  results  of  P3  and  PI 

Add  with  carry  left  results  of  PI  and  P3_ 

Shift  left  result  of  P2  left  I  bit 
Move  right  result  of  P2  to  R7 

Pick  off  high  bit  . . .  . . 

Shift  it  right  15  bits 

Add  it  shifted  left,  left  part  of  P2 

Shift  right  part  of  P2  I  bit  left _ 

Add  shifted  results  of  P2  and  P3 
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349  E 

0A9D 

34A0 

0E8  2 

34  A2 

C8  00 

FFFF 

. . *  *  . . . . . 

34  A  6 

C8  10 

FFF4 

34  AA 

C820 

0000 

34AE 

C8  30 

0  6E0 

34B2 

C840 

0000 

34B6 

C8  60 

0000 

34BA 

C870 

30C0 

34BE 

C8A0 

314A 

•  34C2 

C8C0 

0000 

34C6 

C8  DO 

014F 

34CA 

C8B0 

3510 

34CE 

030B 

3400 

4230 

3544 

(34D4-3524) 

34D4 

4080 

3522 

[DAS] 

34D8 

4 1B0 

0F18 

34DC 

07CC 

34DE 

07DD 

34E0 

07EE 

34E2 

07FF 

34E4 

0894 

34E6 

08  57 

34  E8 

41B0 

3408 

34EC 

08  F9 

34  EE 

08  E8 

34  F0 

0894 

34  F2 

08  5  6 

34  F4 

41B0 

3408 

34  F8 

0AE9 

34  FA 

0ED8 

'  34  FC 

0893 

34  FE 

08  57 

'  3500 

41B0 

3408 

3504 

0AE9 

3506 

0ED8 

3508 

0893 

35  OA 

08  5  6 

350C 

4 1  BO 

3408 

3510 

0AD9 

3512 

0EC8 

3514 

08  2C 

3516 

08  3D 

3518 

08  4E 

35  1 A 

08  5F 

35 1C 

41B0 

OF  60 

3520 

C8B0 

0538 

3524 

03  OB 

3526 

0003 

3528 

0007 

352A 

08  07 

352C 

0605 

•  352E 

09  07 

(3530-3540 

3530 

3B9  A 

CAOO 

3534 

05F5 

3536 

E100 

0098,. 

353A 

9  68  0 

353C 

000F 

"Add  result' of" PO  to  get  final, result- In  R89 


Restore  starting  contents  of  all  registers  not  used 
for  output  or  input 


Return  to  main  program"  ~ . 

=  ROUT  I N  E  "TO  MULT  I P  LY~(  R34  R6  7 )  ( R2 3  4  5 ) 

Store  register  6-F 


Clear  register  C-F  to  accumulate  result 
Move  (R4)  and  (R7)  to  R9  and  R5 
(R4)  x  (R7) [  +  (R89)  =  PO 
Move  PO  to  (REF) 


(R4 )  x  (R6)  ->■  ( R89 )  =  PI  ~ 

PO  +  PI  =  PI 

+  po . 

CD  EF  . . . . 

(R3)  x  (R7 )  -»■  (R89)  =  P2 

P2 

PO  +  PI  +  P2  =  PI 

PO 

C  D  EF 

(R3)  x  (R7 )  •+■  ( R89 )  =  P3" 
Finish  accumulating  into  RC 
Transfer  result  to  (R2345 ) 


Restore  reg i sters 
Return 


=  HEXADECIMAL  ECU  I VA LENTS  OF  POWERS  OF  10 
(3530-3532)  =  10**9 
(3534-6)  =  10**8 
(3538-A)  =  10**7 
(353C-E )  =  10**6 
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353E  4240  0001 


3542  8  6A0  0000 
'  354  6  2710  03E3 
354A  00  64 
354C  000A 
354E  0000 

3550  0000  (3550-3558)  = 

1  3552  0000 
’3554  0000 
3556  0502 
3558  0100 
355A  0000 
355C  0000 

355E  0000  (3560-3580  = 

3560  4080  3 58 A  [DAS] 

3564  CF20  0001 
3568  0853 
356A  C450  8000 
356E  CC50  OOOF 
3572  0A25 
3574  CD30  0001 
3578  08  54 
357A  C450  8000 
357 E  CC50  OOOF 

358  2  0A3  5 
3584  CD40  0001 
3588  C8B0  0000 
358 C  0308 

358 E  CD20  4080  (3590-35CO)  = 

359  2  353E  0200  CECT  &  DAS] 


3596  4180  3 5C4 
359 A  07  7  7 
359 C  0788 
359 E  089  6 


(3540-2)  =  I  0**5 . - 

(3544-6)  =  1 0**4 

(3548)"*'  10**3 . .  “  ' . “ . . 

(354A)  =  1 0**2 

(3540  =  10**1  . . .  . 

STORAGE  AREA  FOR  HEX  TO  DECIMAL  CONVERSION 


ROUTINE  TO  MULTIPLY  R23.4  BY  2 

Shift  (R2)  I  bit  left  arithmetic 
Move  (R3)  R5 

Pick  off  high  bit  of  R3,  put  in  (R5) 
Shift  bit  15  bits  right  logical 
Add  it  to  shifted  result  in  R2 
Shift  (R3)  I  bit  left  logical 

Pick  off  high  bit  of  (R4)  and  put  in  R5 

Shift  bit  15  bits  right  logical 

Add  it  to  shifted  result  in  R3 

Shift  (R4)  I  bit  left  logical 

Return 

ROUTINE  TO  MULTIPLY  (R45)  BY  (R6)->R345 
(R45 )  EITHER  SIGN,  (R6)  POSITIVE 
■|(R45)|-*(R45) 


Move  ( R6 )  -*  R9 


35A4 

07AA 

Clear  RA 

35A6 

0884 

Move  ( R4 )  -*■  RB 

35A8 

0CA6 

(R4 )  x  (B6)  -»  (RAB)  =  PI 

35AA 

0A8  8 

PI 

35AC 

0E7A 

PO  +  PI  =  +P0 

35AE 

08  3  7 

789 

3580 

08  48 

■Move  result  to  (R345) 

3582 

08  59 

3584 

4180 

3  5F8 

Change  sign  if  original  (R45)  negative 

3588 

4180 

0FC2 

358C 

C880 

0382 

Return 

35C0 

0308 

35C2 

0002 

(35C4-35F4 )  = 

1 (R45) |  R45  ABSOLUTE  VALUE  ROUTINE  SET 

35C4 

4030 

35F2 

[EOT  &  DAS] 

35EE  IF  NEGATIVE 

35C8 

4180 

0  F88 

Save  register  0,1,2,7-F 

35CC 

07  AA 

Clear  RA 

35CE 

40A0 

35EE 

Clear  Flag  Location 

35D2 

0844 

Load  (R4)  to  R4  to  test  sign 

35D4 

4210 

35DC 

Branch  if  negative 

35D8 

4300 

3  5E8 

Exit 

350C 

C8A0 

8000 

Load  flag  to  (RA) 

35E0 

40A0 

3  5EE 

Store  Flag 

35E4 

4 1  BO 

3  5F8 

Change  sign  of  (R45) _ _ 

35E8  41B0 
35EC  4200 
35F0  C8B0 
35F4  03 OB 
»  35F6  0000 
35F8  40B0 
35 FC  48  AO 
3600  4330 
"3604  C740 
3608  C750 
360C  CA50 
3610  4280 
3614  4300 
3618  CA40 
'  361C  C8B0 
3620  030B 
3622  C1C0 
362  6  3  640 
362A'  CE30 
362E  C420 
3632  4230 
3636  4300 
363A  C820 
363E  C8B0 
3642  030B 
!  3644  4030 
3648  4030 
364C  0700 
364E  0711 
3650  CS 20 
3654  0334 
3656  C430 
365A  4330 
365E  CC30 
3662  OAl 3 
3664  0C02 
3666  0834 
3668  C430 
366C  4330 
3670  CC30 
3674  OAl 3 
3676  0C02 
3678  08  34 
367A  C430 
367E  4330 
3682  CC30 
:  368  6  0A13 
368  8  0C02 

368  A  0834 
368C  C430 

369  0  OAl 3 
369  2  C830 
369  6  0  3  03 
369  8  4  2  8  0 
369  C  4300 
36A0  40B0 
36A4  41 BO 
36A8  4060 


0FC2  Restore  original  contents  of- RO, f ,2,7-F 

8  000  (35EE)  =  Flag  storage 

359C  . . . .  Return  .  .  . . 

(35F8-3620)  =  ROUTINE  TO  CHANGE  SIGN  OF  (R45)~ IF  FLAG,  8000,  AT 


3  61 E 

[ECT  &  DAS] 

35EE  IS  SET 

3  5  EE 
3  61C 

Load  Flag  from  (35EE) 

Exit  if  no  flag 

FFFF 

FFFF 

Take  2's  complement  of  (R45) 

0001 

3618 

If  carry  bit  set  add  1  to  (R4) 

3  61C 
0001 

If  not  exit 

3  538 

Return  to  program 

4030 

0823 

(3622-3642)  = 
[DAS] 

ROUTINE  TO  CONVERT  SINGLE  PRECISION 
PRECISION  IN  (R23) 

(R3)  TO  DOUBLE 

0000 
8000 
3  63A 
3  63E 

(3628)  =  Put  (R3)  into  R2 

Test  sign  bit  of  (R3) 

If  bit  present  i.e.  (R3)  are  negative,  Branch  otherwise 
exit 

FFFF 

382E 

Load  FFFF  into  (R2) 

Return 

32FE 
3  694 

(3648-3696)  = 
[NS  &  DAS] 

ROUTINE  TO  CONVERT  DECIMAL  (R4),  4  DIGITS,  TO 
HEXADECIMAL  AT  Rl 

OOOA 

Clear  (RO) and (Rl ) 

Load  A ( = 1 0 )  to  (R2) 

FOOO 
3  664 
OOOC 

Shift  (R4 )  -*•  R3 

Pick  off  high  4  bits  or  first  digit  of  (R4) 

If  zero  branch  to  test  next  lower  digit 

If  not  zero  shift  (R3)  right  12  bits 

Add  shifted  (R3)  to  (Rl ) 

(Rl )  X  A  -*•  (ROI  ) 

OFOO 

Recal 1  (R4)  again 

Pick  off  next  diqit  of  (R4) 

3  67  6 
0008 

If  zero  branch 

If  not  shift  (R3)  riaht  8  bits 

Add  shifted  (R3)  to  (Rl) 

(Rl  X'A  (ROD 

OOFO 

Recal 1  (R4)  again 

Pick  off  next  diqit  of  (R4) 

3  638 
0004 

If  zero,  branch 

If  not.  shift  (R3)  riqht  4  bits 

Add  shifted. (R3)  to  (Rl) 

(Rl)  X  A  -*•  (ROI) 

000  F 

Load  (R4) -»  R3 

Pick  off  last  diqit  (last  4  bits)  of 

(R4 ) 

040C 

Add  to  (Rl ) 

3656 
3C8  0 
374A 

(36A0-374C)  = 
CCEK] _ 

Return  to  main  program 

ROUTINE  TO  DIVIDE  2  HEX  HALFWORDS  BY 
(R45 )  J  ( R3)  ( R45 ) 

1  HEX  HALFWORD; 

0F88 

3746  . .  Save  at  I  registers  not  .used  for . Input  or  output 
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36AC  CC 50  0001 
36B0  CE40  0001 
3684  428  0  3  6BC 
36B8  4300  3  6C0 
36BC  CA50  8000 
36C0  0788 
36C2  C89 0  0001 
36C  6  C8A0  FFFF 
36CA  08  14 
36CC  4310  3  6D8 
36D0  074A 
3602  075A 
36D4  0A59 
3606  0E48 
3608  08  25 
3 60 A  CC50  000 F 
36DE  CF40  0001 
36E2  0654 
36E4  CE40  000F 
36E8  0043 
36EA  08  05 
36EC  0852 
36EE  C450  7 FFF 
36F2  CE40  0001 
36F6  4380  36FE 
36FA  C  650  8  000 
36FE  0043 
3700  0824 
3702  0840 
3704  CE40  0001 
3708  4380  3710 
370C  C 650  8000 
3710  CF20  0001 
3714  0523 
3716  428  0  37  IE 
37  1 A  0A59 
<J7  1 C  0E43 
37  1  E  08  1  1 
3720  4310  372C 
3724  074A 
3726  075A 
3728  0A59 
372A  0E48 
372C  CF40  0001 
3730  CD50  0001 
3734  4280  373C 
3738  4300  3740 
373C  CA40  0001 
3740  4 1B0  0FC2 
3744  C8  60  0020 
3748  C8B0  03EE 
374C  030B 
37 4E  0000 
3750  0000 
37  52  0000 
3754  0000 
3756  0000 
3758  0000 


Shift  (R5)  right  logical  I  bit - 

Shift  (R4)  right  arithmetic  I  bit 

If  a  least  significant  bit  shifted  out  of  (R4)  branch 
If  not  branch  around  hlah  bit  add  to  (R5) 

Add  high  bit  to  (R5) 

Clear  R8 

Load  "I"  to  (R9) 

Load  "FFFF"  to  (RA) 

Load  high  order  part  to  Rrto'te'st  'sian  . 

Branch  if  (R45)  are  positive 
Two's  complement  (R45) 


Save  low-order  part  In  R2 
Shift  (R5)  right  logical  15  bits 

Shift  (R4)  left  I  bit  arithmetic  . . 

OR  (R4)  into  (R5)  High  Order  15  bits 
Shift  (R4 )  right  15  bits  arithmetic 
(R45)/(R3)  -»  (R5)  Remainder  ->  (R4) 

Save  result  in  RO,  High  Order  15  bits  of  answer 
Reload  low-order  part  of  input  to  (R5) 

Pick  off  low  15  bits  of  (R5) 

Rema i nder/2  ->  (R4) 

If  no  bit  shifted  out  branch  to  next  divide 
If  bit  shifted  out  OR  high  bit  into  (R5) 

Divide  present  (R45)  by  (R3),  (R45)  =  low  order  15  bits 
2nd  remainder  -►  (R2)  of  answer 

Recall  high  order  15  bits  of  answer  to  (R4) 

Shift  (R4)  right  I  bit  arithmetic 

Branch  if  no  bit  shifted  out 

If  bit  shifted  out  OR  high  bit  into  (R5) 

2nd  remainder  times  2 

Is  2nd  remainder  times  2  >  or  =  to  divisor 

Branch  if  not 

Add  I  with  carry  to  (R45) 

Was  number  negative 

Branch  if  number  is  positive . 

Complement  (R45)  '  . 


Multiply  (R45)  by  2  to  reverse 
Process  at  start  of  this  routine 


Restore  all  registers  not  used  for  input  or  output 


Return  to  main  program 


(3750-37E2)  =  PROGRAM  FOR  TAKING  LEFT  JUSTIFIED  12  BIT  BINARY  NOS. 

FROM  MEMORY  LOCATIONS  1000  TO  3000,  CONVERTING  THEM  TO  SIGNED  FOUR 

DIGIT  DECIMAL  NOS.,  AND  PRINTING  (AND  PUNCHING) . IN  A  FORMAT  OF  NUMBER- 

SPACE  WITH  TEN  NUMBERS  PER  LINE.  PLUS  SIGNS  ARE  NOT  PRINTED  IN  ORDER 
TO  BE  COMPATIBLE  WITH  THE  NBS  1108  CENTRAL  COMPUTER  FACILITY. 


"  >37  50F.  .  . 

>37E4P  [ECT  4  CY] 

37  50  4 1B0  3F2  6 
3754  07EE 
3756  07AA 
3758  48 3 E  1000 
375C  CE30  0004 
3760  4 1 60  3624 

"'  3764  08  53  . . . 

3766  0842 

37  68  4  1  BO  3300 

376C  4 1 £0  37A0 

3770  4 1 £0  3110 

3774  CAEO  0002 

3778  CAAO  0001 

377 C  C5E0  2000 

3780  4280  3788 

3784  4300  3C80 

3788  C5A0  OOCA 

378 C  4280  3758 

379  0  4  1  £0  3F44 

3794  C5E0  2000 

3798  4280  3756 

379 C  4300  3C80 

37A0  40£0  3 7 EG  (37A0-37E2)  = 

37A4  413C  0F1 0 

37A8  08  52  . . 

37 AA  08  63 
37AC  0821 
37AE  C410  FOOO 
37S2  4330  37BE 


Punch  a  leader  for  tape  output 
Clear  line  and  word  index  counters 

Cl 000  +  (RE)]]  -*  (R3)  Load  data  to  (R3) 

Shift  (R3)  right  4  bits  arithmetic 

Single  precis jon  (R3_)_-»  double  precision  (R23) 

Move  to  R45 

Convert  (R45)  to  decima M n'  (Rl 23) 

Print  and  punch  4  digits  and  sian 

Print  SP  . " 

Index  (RE)  by  2 

Index  (RA)  by  I  . . . . 

Compare  (RE)  with  word  limit 

If  (RE)  >  2000  go  to  3788,  otherwise  continue 

Return  to  monitor 

Compare  (RA)  with  limit  of  words  per  line 
If  (RA)<  A  go  to  3758,  otherwise  continue 

CRL . . . . .  . . -  - 

Check  word  limit  again 

If  (RE) <  2000  take  next  data  entry 

Return  to  monitor 

PRINT  AND  PUNCH  ROUTINE 

Save  contents  of  reaisters  A-F 

Move  (R23)  to  R56  """ . ~  . . 

Test  sign  of  data  point  . . . . 

If  +  branch,  if  -  continue .  . 


37B6  C8C0  002D  Load  ASCII  code  for  -  to  (RO) 

37BA  4300  37C2  Branch  to  print  and  punch  contents  of  RO . 

37BE  C800  OOAO  Load  ASCII  code  for  +  to  (RO) 

•  37C2  4 1  BO  3E80  ” Print  (RO)  at  TTY 

'  _  37C6  C420  OFFF  _ __ 

37CA  4200  0000  Printing  (Rl)  and  (R2)  bypassed  since  r2~b Its 

37CE  0825  _  _  corresponds  to  only  4  diaits 

”  37 DO  4200  0000 .  .  "  .  . . 5 — - - - - 

3704  0826  _ _ Load  (R3)  Into  R2 

37D6  4 1  BO  3EF0  . . . .  Print  (R2) 

__37DA  41  BO  0F58  Restore  (RA  to  RF) 


37 DE  C8B0  3770 

37E2  030B 

Return  to  program 

>  - -  ' 
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(3800-3888) 

[ECT] 


38  00R 


38  0  0 

07CC 

♦ 

38  0  2 

07AA 

38  04 

40AC 

068  0 

38  08 

CACO 

0002 

38  0C 

G5C0 

0400 

3810 

4280 

38  04 

3814 

0777 

3816 

C88  0 

0002 

38  1 A 

C890 

2000 

38  1 E 

C8  60 

0008 

38  2  2 

4837 

1000 

3826 

CE30 

0004 

382A 

4  ISO 

3  624 

38  2E 

0D2  6 

38  3  0 

08  22 

38  3  2 

4310 

383A 

3836 

CA30 

FFFF 

38  3 A 

CA30 

0100 

333E 

CF30 

0001 

3342 

48  C  3 

0  68  0 

3846 

CACO 

0001 

38  4 A 

40C3 

0  68  0 

38  4  E 

C  1  70 

3822 

38  5  2 

CSS  O 

068  0 

38  5  6 

4080 

39  73 

38  5A 

C88  0 

0000 

38  5E 

4080 

39  7C 

38  62 

CSS  0 

0002 

38  6  6 

408  0 

39  9  A 

38  6A 

C88  0 

0400 

38  6E 

4080 

399  E 

38  7  2 

C88  0 

00F0 

38  7  6 

4080 

3984 

38  7A 

408  0 

398  C 

387E 

C88  0 

000F 

388  2 

4080 

399  0 

38  8  6 

4300 

3950 

PROGRAM  TO  CALCULATE  THE  AMPLITUDE  OR  PROBABILITY 
DENSITY  FUNCTION  FOR  DATA  STORED  AT  (1000-3000), 
STORES  RESULT  IN  (O68O-OA8O),  AND  PLOTS  FUNCTION 
AT  STRIP  CHART  RECORDER 

3800  -  First  entry  to  Initialize  storage  area  at 
0680-0A80. 


3814  -.  Second  entry  .to.gener.ate,.ampLif.ted  function 

Initialize  index  counter!  (R7J_ _ _ _ 

8  -►  (R6) 

Cl 000  +(R7)]  -*•  (R3) _ _ _ _ _ 

Shift  (R3)  right  4  bits  arithmetic 
Single  precision  (R3)  -*•  double  precision  (R23) 
Calculate  box  data  point  should  belong  to 
Load  remainder  to  test  if  >  0 
If  remainder  <  0,  add  -I,  then  add  bias 

If  remainder  >_  0, .  just  add  bias . . . . 

Add  bias 

Multiply  box  number  by  2  to  obtain  address  no.  ot 
[0680  +  (R3)j  -v  (RC)  storaae 

Add  I  to  (RC) 

New  contents  of  RC  -*■  [0680  +  ( R3 ) H 
Increment  index  counter  then  repeat 


(3852-3888)  =  Initialization  of  plot  routine,  plot 
. .  (0680-OA80) ,  then  return  to  monitor. 


3900  07AA  (3900-3916)  =  PROGRAM  TO  CLEAR  CONTENTS  OF  MEMORY  LOCATIONS  1000  to 

39  02  07CC  [ECT]  3000 

39  04  40 AC  1000  - - -  - - - - - - - — . . .  . 

39  08  CACO  0002 

39 OC  C5C0  2000  . . .  . - - - - - - - 

39  1  0  4  2  8  0  3  9  0  4 

39  14  4300  3C8 0  . . . . . . . * 

3918  C800  1000  (3918-3946)  =  PROGRAM  TO  INITIALIZE  PLOT  ROUTINE  FOR  BIPOLAR  NUMBERS 
39  1C  4000  39  78  [ECT]  AND  TO  PLOT  DATA  FROM  MEMORY  LOCATIONS  1000  TO  3000 

39  20  C8 00  0008  ON  STRIP  CHART  RECORDER 

39  2  4  4  0  0  0  3  9  7C  .  .  . ~ . . .  “ 

3928  C800  007B 

39 2  C  4000  3984  “ .  .  . 

39  3  0  4  0  0  0  39  8 C 

39  3  4  C8  00  0084  .  .  .  “ — - * - - - 

39  3  8  4  0  0  0  3  9  9  0 

393C  C800  2000  "  . . _ . 

39  4  0  4  0  0  0  3  9  9  E 

3944  4300  3950  (3950-39CF)  =  PLOT  ROUTINE:  THIS  ROUTINE  TAKES  HALFWORDS  FROM 
3948  OOCO  [ECT]  SPECIFIED  MEMORY  LOCATIONS  USING  THE  8  MOST  SIGNIFICANT 

39 4 A  OOOC  BITS  (INCLUDING  THE  SIGN  BIT)  AND  BIASES  THE  DATA  TO 

39 4  C  0000  HAVE  A  RANGE  FROM  4  TO  255.  SEE  NOTES  IN  TEXT. 

39 4 E  0000  "  ‘  7  — . . . 

3950  C8  00  0003  Turn  on  recorder 

39  5  4  41  BO  3E8 0  .  .  . . 

3958  4200  0000 

39  5C  C800  0004  Print  low  value  . 

39  6  0  4 1B0  3E8 0 

3964  4 1  BO  39B6  Continue  for  ^  8  sec. . 

39  68  CSOO  OOFF 

39  6C  41  BO  3  ES  0  Print  high  value 

39  7  0  4 1  BO  39B6  Continue  for  <\<  8  sec. 

39  7  4  0  799  Initialize  index  counter  (R9)  —  -  

39  7  6  48  3  9  0  630  [ (3978 )  +  (R9 )]  +  (R3) 

397A  CE30  0000  Shift  (R3)  right  arithmetic  proper  number  of  bits 

397E  4320  39SE  If  number  is  positive,  continue:  otherwise  branch 

39  8  2  C530  OOFO  Compare  number  with  maximum  value 

398  6  4  2  8  0  3  9  8E  If  less  than  maximum  add  bias 

398A  C830  OOFO  If  greater  than  or  equal  max,  replace  no.  with  maximum 

398E  CA30  OOOF  Add  bias 

399  2  08  03  .  . " 

3994  4 1B0  3E8  0  Plot  biased  value 

39  9  8  CA9 0  0002  -  "  ~  '  . '  '  “ 

399C  C590  0400  Increment  index  counter,  compare  with  limit,  continue 

39 AO  4280  3976  if  (R9)  <  limit.  ‘  .  . . . 

39 A4  CSOO  0002 

39A8  41B0  3E80  turn  off  recorder 

39AC  4300  3C80  Return  to  monitor 

39B0  0000  .  . . . . .  '  . .  ' 

39B2  0000 

39B4  0000  . . . .  . .  . . 

39B6  40B0  39CC  (39B6-39CF)  =  WAIT  APPROXIMATELY  8  SEC.  ROUTINE. 

39 BA  C8C0  0000 
39 BE  C8 DO  0001 
39 C 2  C8E0  FFFO 
39 C  6  C1C0  39  C  6 

39  CA  C8B0  39  74  . .  . 

39CE  030B 


39 DO  OOOO  .  . . . . . . . . 

39D2  0000 

39 D4  4030  39  FC  (3SD4-39FE)  =  ROUTINE  TO  PRINT  AT  TTY  "MEAN  aa  =" 

39  D3  C8A0  3  14A  [ECT] 

39 DC  C3  50  4D4  5  "T  . . . 

39  EO  01  BA 
39 £2  C850  414E 
39  E  6  013A 
39ES  C850  2041 
39 EC  0  1  BA 
39 EE  C8  50  4120 
39  F2  01  BA 
39  F4  C8  50  3D20 
39  F8  013A 
39  FA  C8B0  1704 
39 FE  030B 

3A00  40BO  3A28  (3AOO-3A2A)  =  ROUTINE  TO  PRINT  AT  TTY  "STD.  DEV.  =" 

3A04  C8A0  3  14A  [ECT] 

3A08  CS  50  5354 
3A.0C  01  BA 
3A0E  C850  4420 
3A 1 2  01BA 

3A14  C8  50  4445  ’  " .  *  . 

3A18  0 1BA 
3A1A  C850  5620 
3A 1  E  0  1  BA 
3A20  C850  3D20 
3A24  01  BA 
3A2  6  C350  1704 
3A2A  03  OB 
3A2C  3 A?C  3A2E 

3A30  Co  AO  314A  (3A30-3A48)  =  PROGRAM  TO  PRINT  "ERROR"  THEN  RETURN  TO  MONITOR 
3A34  CS 50  4552  [ECT] 

3A38  01  BA 
3/-3A  C3  50  52^; F 
3h3 E  01  BA 
o A Co  oO  0 
3A44  01 BA 
3A4  6  43  00  3C8  0 
3A4A  3A4A  3A4C 

3A4E  3A4E  4030  (3A50-3A70)  =  ROUTINE  TO  PRINT  POWER  OF  TEN  ENTERED  AT  UNITS  QUERY 
3A52  3A6E  CA50  [ECT]  FOR  STEPS  AND  SAME  +  (-l)_FOR  ROUGHNESS  AND  ALSO  TO 

3A56  0001  '  PRINT  "MM". 

3A58  4030  3A6E 
3A5C  4 1  BO  3 1 4A 

3A60  4130  3110  _  ___  _ 

3A64  C8  50  4D4D 

3A68  4 1  BO  314A  _ 

3A6C  C8B0  01  DO 

3A7  0  030B  „  __  __  _ 

3A7 2  3A72  3A74 . . .  .  . . . . . . .  . . . .  . 

3A7  6  3A7  6  3A78 
3A7A  3A7A  3A7C 
3A7E  3A7E  4000 


> 


3A40  C8  50  5220 
3A44  0 13A 
3A46  4300  3C80 
3A4A  3A4A  3A4C 
3A4E  3A4E  4030 
3A52  3A6E  CA50 
3A56  0001 
:  3 A 58  4030  3A6E 
'  3A5C  4130  314A 
3A60  4130  3110 
3A64  C8  50  4D4D 
3A68  4130  314A 
3A6C  C8B0  01  DO 
3A70  0303 
3A72  3A72  3A74 
3A7  6  3A7  6  3A78 
3A7A  3A7A  3A7C 
3A7E  3A7E  4000 
3A82  3 A3 6  4010 
3A8  6  3 A3  A  4020 
3 ASA  3A3E  4030 
3A3E  3 AC 2  408  0 
3A92  3AC6  4030 
3A9  6  3 AC  A  40F0 
3A9 A  3 ACE  C8 FO 
•  3A9E  0002 
3AA0  C800  003 F 
3AA4  4130  3E3  0 
3AA8  4130  3F44 
3AAC  4820  0032 
3A30  4130  3EF0 
3 A3 4  C8  00  003  A 
3A38  C810  0043 
3A3C  C820  EOOO 
3ACC  CS30  0006 
3AC4  0830  0005 
3x-.C8  uS.iG  vi  F oo 
3ACC  C8F0  0002 
3 ADO  C200  3 AD4 
3AD4  8000  3C8 0 
3AD8  0700 
3ADA  4000  0034 
3ADE  C8  00  3A8  0 
3AE2  4000  0036 
3AE6  4300  3C80 
3AEA  0000 
3AEC  0000 
3AEE  0000 
3AF0  0004 
3AF2  0630 
3AF4  0635 
3AF6  4300  28 5A 
3AFA  0000 
3AFC  0000 
3AFE  0000 
3B00  C800  4 1B0 
3B04  4000  3DA8 
3B08  4300  3C8 A 


Load  R  space  . .  ~ 

Print 

Return  to  monitor  ’  . . 

(3A50-3A70)  =  PRINT  MM  AND  INCREASE  POWER  OF  10  BY  I  IF  FOR  AA 
(REPEAT  OF  PREVIOUS  ITEM) 


Print  powe r  of  10 .  “ "  “  '  . . 

Print  SP 

Load  MM  "" . . .  . . 

Print 

Return  to  main  program 

REMAINDER  OF  PROGRAMS  AND  ROUTINES  WRITTFN 
(3A80-3AD7)  =  ^LlB^t'  ^NSl rBH  18n  HANDLER  ‘ .  . ■- 


Srve  0 
Save  I 
Save  2 
Save  3 

Save  8  •  ” • 

Save  B 
Save  F 
"2"  to  F 

Load  ?  . . . . .  . " .  . 

Print 

CR-LF 

Load  old  PSW  address 

Print  4  "  '  .  .  . . 

Restore  0 

Restore  I  .  . . .  . . . . 

Restore  2 
Restore  3 
Restore  8 
Restore  B 
Restore  F 

Load  PSW  . . . . 

PSW  -  Wait  State  -  to  monitor 

(3AD8-3AE9)  =  INITIALIZE  ILLEGAL  INSTRUCTION  INTERRUPT  WITH  COMMAND 

,  (&> 


(3B00-3B4B)  =  ANNOTATION  PROGRAM 

THIS  PROGRAM  WILL  ACCEPT  A  MONITOR  PRINT  COMMAND  IN  THE  NORMAL 
FORMAT.  IT  WILL  PRINT  ONE  LINE,  THEN  TAB  OVER  TO  THE  COMMENTS  FIELD. 
AFTER  TYPING  COMMENTS,  A  RUBOUT  WILL  GET  THE  NEXT  LINE  OF  TEXT.  A 
CARRIAGE  RETURN  WILL  GET  A  LINE  FEED  ANDJROOM  FOR  MORE  COMMENTS. 


TO  ACT  I VATE  ANNOTATOR  COMMAND  I S  (T) 

TO  STOP  ANNOTATOR  COMMAND  IS  (U) 

MONITOR  CONTENTS  DURING  ANNOTATION  AT  3DA8  ARE  CHANGED. 

To  mess jjp_p r  i, nt... ro.ut  t  ne _ _ _ 

Store 

To  monitor 


3B0C  0000 
3B0E  0000 
3B10  C300  4200 
3814  4000  3 DAS 
3318  4300  3C3A 
381 C  0000 
331 E  0000 
3320  C8  00  0089 
3324  4180  3E8  0 
3828  41  BO  3 ESA 
332 C  C500  008 D 
3B30  4330  3340 
3B34  C500  OOFF 
3338  4330  3DAC 
3B3C  4300  3B28 
3B40  C800  OOOA 
3344  4130  3E8  0 
3B48  4300  3B20 
334C  0000 
334E  0000 
3350  4030  337A 
3354  4030  335C 
3358  07CC 
33 5 A  D30C  003E 
335E  0300 
3360  4330  3374 
3364  4130  3E8  0 
3368  CACO  0001 
3360  C5C0  0020 
3370  428  0  335A 
3374  4130  3  F44 
3873  C38C  234 A 
33 7 C  0303  . 

337 E  0000 

338  0  C8A0  3E8  0 
388  4  07  00 

3_3  6  4  130  3F2  6 
3^5  A  CSCO  3  F3  0 
388 E  C8E0  3FCF 
3392  D30C  0000 

339  6  01  BA 
3398  Cl  CO  339  2 
339 C  0800  0001 
33A0  C8E0  0010 
33A4  0700 
33A6  0 13A 
3BA8  Cl  CO  33A6 
3BAC  C8  00  OOFF 
3B30  01  BA 
3BB2  08  15 
3334  4 1  CO  3BDE 
3B38  08  1  4 
3B3A  41  CO  33DE 
3BBE  0799 
3BC0  08 C 5 
33C2  08 E4 
3BC4  D30C  0000 
3BC8  079  0 


(3BI0-3BIA)  =  STOP  ANNOTATOR  . .  . . .  . 

No-op  to  fix  print  routine  . — - - 

Store 

To  monitor  . . . . . .  . . " 

(3B20-3B4A)  =  ANNOTATOR 

Load  Tab 

Ask  for  input 

Compare  with  CR  ~  ~  ;  . 

If  equal ,  new  I ine 

Compare  with  rubout  . 

If  equal,  back  to  print  routine 
Otherwise,  loop  for  another  character 
Load  LF 

Print  . .  . 

Jump  to  tab 

(3B50-3B7D)  =  PRINT  32  CHARACTERS  FROM  MMY  STORED  I N  ASC I  I  STARTING 

AT  ADDRESS  IN  (R3) 

Save  return  . ' 

Store  First  address  in  load  instruction 
Clear  index 
Load  character 

Test  . . . .  . . . 

If  zero  (BLANK)  exit 

Print  . . — '  ■  . .  ■■  ■ 

Increment  index 

Compare  with  limit  . . . ~  " . 

Loop  if  less  than  limit 
CR-LF 

Restore  return 

( 3B80-3BDD)  =  ROUTINE  FOR  PUNCHING  AT  TTY  HEXADECIMAL  FORM  OF  MMY 
CONTENTS  FROM  ADDRESS  IN  (R5)  TO  (R4) 

Address  for  punch  subroutine 
Clear  0 

Punch  blank  leader 
Start  address  of  loader 
Final  address  of  loader 
Fetch  byte  of  loader 
Punch 

Loop  for  next  byte 

Prepare  to  punch  blank  spaces 


Punch 

Loop 

Rubout 

Punch 

Start  Address  to_l_ 
Punch 

Final  address  to  I 
Punch 

Clear  9  for  Hashsum 
Start  address  to  C 
Final  address  to  E_ 
Fetch  byte  of  text 
Update  Hashsum 


3BCA  01 BA 
3BCC  Cl  CO  3BC4 
’  3BD0  08  09 
33D2  01  BA 
3BD4  0700 
3BD6  41 BO  3F26 
3BDA  4300  3C8A 
33DE  08  01 
3BE0  CCOO  0008 
3BE4  01 BA 
3BE6  9210 
3BE8  013A 
33 E A  03 OC 
3BEC  0000 
"  3BEE  0000 
3BF0  0000 
3BF2  0000 
3BF4  0000 
3BF6  0000 
3BF8  0000 
3BFA  0000 
33FC  0000 
'  33 FE  0000 

3C00  40S0  3C3C 
3C04  4030  3C10 
3C08  C8C0  00  IE 
3C0C  07DD 
3C0E  40DC  008E 
3C  1 2  CBCO  0002 
3C16  4310  3C0E 
3C  1 A  4030  3C2C 
3C  1 E  4  1  £  0  3  E8  A 
3C22  C500  008 D 
3C2 6  4330  3C3A 
3C2A  D20D  OCSE 
3C2E  CADO  0001 
3C32  C5D0  0020 
3C3  6  4280  3C1E 
3C3A  C8B0  2B72 
3C3E  03  OB 
3C40  0000 
3C42  OOCO 
■  3C44  0000 
•  3C4  6  4 1B0  3  F44 

!  :  3C4A  08  2  5 

3C4C  4 1B0  3EF0 
3C50  C8  00  00 AO 
3C54  41  BO  3E3  0 
3C58  C8EC  0007 
3C5C  C800  OOAO 
3C60  41  BO  3E8  0 
3C64  4825  0000 
3C68  4 1B0  3EF0 
3C6C  0A5F 
3C6E  C1C0  3C5C 
3C72  0554 
3C74  4380  3C8A 
3C78  4 1E0  3EE0 


Punch 

Loop  for  next  byte 
All  text  punched.  Hashsum  to  0 
Punch 
Clear  0 

Punch  blank  leader 

(3BDE-3BEB)  =  ROUTINE  TO  PUNCH  ADDRESS  FROM 
Address  into  0 

Shift  0  right  8 . . . . . . . 

Punch  top  half 

Bottom  half  to  0  .  ’ 

Punch 

Exit  - 


(3C00-3C3F)  =  ROUTINE  TO  READ  32  CHARACTERS  AT  TTY  AND  STORE  IN 

ASCII  FORM  IN  MMY  STARTING  AT  THE  ADDRESS  IN  (R3) 

Save  return 

Store  first  address  in  store  instruction 
I  ndex 

Clear  D  . . . 

Clear  data  space 
Subtract  2 

BR.  if  positive  or  zero 

Store  First  address  in  store  instruction 

Read  one  character 

CR?  .  .  . . .  . . '  -  ' 

If  so,  return 
Store  Character 
Increment  Index 
Compare  with  limit 
Loop  i f  I  ess  than  limit 
Restore  Return 
Exit 

(3C46-3C7F)  =  ROUTINE  FOR  PRINTING  AT  TTY  HEXADECIMAL  FORM  CONTENTS 
. OF.  MMY  FROM  ADDRESS  IN  (R5)  TO  ADDRESS  IN  ( R4 ) 

CR-LF 

Address  pointer  from  5  into” 2" .  *  . 

Cal  I  Pr i nt  4 

Load  SP  . .  .  7“ . . . 

Print.  Gives'  double  space  after  address 
(7)  +  C  into  E.  Contents  of  C  are  not  used 
Load  SP 

Print  ~  ’  .  . 

.  Fetch  Byte  From  Address  In  5 

Print  4 
I ncrement  5 
Loop  for  next  Byte 
.Check  for  print  limit 

If  limit,  go  to  dispatcher  ' 

If  not,  check  panel  button  15 
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3C7C 
3C80 
3C8  4 
3C88 
3C8A 
3C8E 
3C92 
3C9  6 
3C9  A 
3C9C 
3CA0 
3CA4 
3CA8 
3CAA 
3CAE 
3CB2 
3CB6 
3CEA 
3CBE 
3CC0 
3CC4 
3CC8 
3CCA 
3CCE 
3CD0 
3CD4 
•  3CD8 
3CDA 
3CDE 
3CE2 
3CE  6 
3CEA 
3CEE 
3CF2 
3CF6 
3CFA 
3CFE 
3D02 
3D04 
3D06 
3D08 
3D0A 
3D0C 
3D0E 
3D  10 
3D12 
3D  14 
3D  18 
3D1A 
3D1E 
3D22 
3D2  6 
3D28 
3D2C 
3D30 
3D32 
3D3  6 
3D3A 


4330 
C8  00 
C8.F0 
9  EFO 
41B0 
C800 
4  1  BO 
4 1£0 
07CC 
C8  DO 
C8E0 
D31C 
0510 
4330 
COCO 
4300 
CDCO 
48BC 
03  OB 
4  1B0 
CD40 
0641 
43  00 
0000 
40B0 
4030 
07CC 
48  2C 
C8F0 
41  BO 
CS  GO 
4130 
CACO 
C5C0 
428  0 
4  130 
C330 
0303 
OCCO 
0000 
0000 
0000 
0000 
0000 
08  54 
0744 
4300 
0B5F 
C8  00 
4  1  BO 
4300 
0A5F 
4300 
4045 
0A5F 
4300 
4045 
0A5F 


3C46 

0020 

0002 

3  F44 
OOBE 
3E3  0 
3E8  A 

0001 
00  1  E 
3DE0 

3CB  6 
3CC0 
3CA4 
0001 
3E1  0 

3EA4 

0004 

309  6 

3D00 

3CDC 

38  68  . 
0002 
33F0 
OCAO 
3  £8  0 
0002 
000  6 
3  C  DA 
3  0 


(SEE  3D04) 


(3CD0-3D03)  = 


(3C80-3CCD) 
AND  BUFFERS 
APPROPRIATE 


If  button  not  pushed,  print  -another  line;  otherwise 
continue  to  this  statement  which  is  entrance  to 
TTY  device  number  ”  monitor 

Output  command  _  _ 

cr-lf . . 

Load  > 

Print 

Get  character  from  TTY  _ _ _ 

Clear  C  -  start  Index  . 

I ncrement 
Last  index 

Fetch  byte  from  command  table 
Compare  with  input  byte 
BR.  i f  equal 

BR.  If  end  of  table  reached 
Loop  for  next  character 

Command  found!  Shift  C  left  I  to  get  index 
Fetch  address  from  jump  table  into  B 
Jump  indirect  through  B 
No  command  found,  was  data,  go  ASCI  I -Hex 
Shift  4  left  4 
Or  new  data  in 
Go  back  for  next  character 
=  PRINT  N/2  HALFWORDS  STARTING  WITH  ADDR.  IN  (R3) 

Save  return 

Store  AX2  in  Load  instruction 
Clear  C 

Load  AX2(C)  in  2 
"2"  to  F 
Print  4 
Load  SP 

Print  . . . ...  .  . . 

Increment  index 

Compare  with  Limit,  (3CF4)  =  N 
Loop  i f  less  than  limit 

Pr i nt  2nd  SP  . 

Restore  return 
Exit 

=  COMMAND  INTERPRETER.  ACCEPTS  DATA  INPUT  FROM  THE  TTY 
IT  IN  R4 .  ACCEPTS  COMMANDS  FROM  TTY  AND  CALLS 
ROUTINE  TO  SERVICE  THEM. 


OODE 
3E8  0 
3D12 

3D  1  2 
0000 

3D  1  2 
0000 


(3DI0-3DD5)  = 
*R  SERVICE* 


*RUB0UT  SERV 


*1  SERVICE* 
*CR  SERVICE* 


*SP  SERVICE* 


SERVICE  ROUTINES  FOR  R,  RO,  I,  CR,  SP,  G,  P  AND  W 
COMMANDS  FROM  TTY 

Load  4  into  5,  thereby  setting  address  pointer 
Clear  4  (Suppress  leading  zeroes  on  typein) 

Jump  to  dispatcher 

CE*  Decrement  pointer  by  2  _ _ _ _ 

Load  Arrow 

Print  .  . . . . . • _ _ _ 

Jump  to  clear  4  and  return 

Increment  pointer  by  2  . . . . . . . 

Jump  to  clear  4  and  return 

Store  4  at  location  in  5  _ ..  .  . 

Increment  pointer  by  2 

Jump  to  clear  4  and  return _ _ _ _ _ 

Store  4  at  location  in  5 

Increment  pointer  by  2  _ _ _ _  _ _ 
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303 C  0744 

303 E  4300  3C9  6 

3042  C540  3B8 0  *G  SERVICE* 

3D4 6  4280  3D52 

3D4A  C540  3000 

3D4E  428  0  3C9  6 

3052  41 BO  3  F44 

3056  C800  0087 

3D5A  41  BO  3E8  0  "  . . 

3D5E  4 1 BO  3EE0 
3D62  4330  3D5E 
3D 6 6  0304 

3068  4 1B0  3F44  *P  SERVICES* 

3D6C  08  25 

3D6E  4 1B0  3EF0 

3D72  C800  OOAO 

3D7  6  41 BO  3E8  0 

3D7A  4825  0000 

3D7E  0812 

308  0  C4  1 0  FOOO 

3D84  4330  3D9E 

3D88  C510  9000 

3D8C  4330  309  E 

3D9 0  41B0  3EF0 

3094  0A5F 

3D9  6  C8  00  OOAO 

309 A  41B0  3E8  0 

3D9E  4825  0000 

3DA2  4 ISO  3EF0 

3DA6  0A5F 

3DA8  4200  3B20 

3D AC  0554 

30 A E  438  0  3DB6 

3D32  41B0  3EE0 

3036  4330  3D68 

3DBA  4300  3C8A 

3D3E  0200  *W  SERVICE* 

3DC0  41 BO  3  F44 

3DC4  08  2  5 

3DC6  41B0  3EF0 

3DCA  C800  OOAO 

3DCE  4 1B0  3E8  0 

3DD2  4300  3C9  6 

3DD6  0000 

3DD8  0000 

3DDA  0000 

3DDC  0000 

3DDE  0000  (3DE0-3E0F)  = 

3DE0  8DFF  A050 

3DE4  D247  C90A 

3DE8  BED4  5355 

3DEC  4BD7  CCOO 

3DF0  48 C A  4D56 

3DF4  D1D8  A6A9 

3DF8  28  59  5A4E 

3DFC  CF2 1  A300  _ 

3E00  0000  ~  ~  * . . 

3E02  0000 


Clear  4  E  . 

Return  to  dispatcher  without  > 

Is  address  >  monitor  start? 

If  it  is,  j ump 
Address  >  monitor  end? 

If  so,  jump  to  dispatcher  without  > 

If  not,  call  CR-LF 
Load  be I  I 

Print  . 

Check  Panel  Button  15 
Loop  waiting  for  button 
Jump  to  address  in  4 
Call  CR-LF 

Address  pointer  into  R2  to  be  printed 

Print  4 . . . . . . . . . . — . 

Load  SP 
Print 

Fetch  halfword  at  pointer  into  R2 
Also  into  Rl 

Strip  top  4  bits  for  apcode  check 
Jump  if  0.  was  halfword  instruction 
Compare  to  9 

Jump  if  9.  was  ha  I fword  '  instruction 
Print  4 

Increment  pointer  . 7  . 

Load  SP 

Print  . .  . ' . .  ‘ 

Fetch  halfword  at  pointer  into  R2 

Print  4  . . . . . . . . . 

Increment  pointer 

To  annotator  (no-operation  normally) 

Have  we  reached  print  limit? 

If  not  continue,  otherwise  branch  to  print  last  line 
If  not,  is  panel  button  15  pushed 
If  not,  get  next  line  of  print 

If  button  pushed  or  at  print  limit,  return  to  dispa+cner 
CR-LF 

(R5)  -+  R2  . .  . . . . 

Print  4  (current  address  pointer) 

Load  SP 
Pr  i  nt' 

Return  to  dispatcher  without  > 


STORAGE  FOR  MONITOR  COMMAND  TABLE 
CR,  RO,  SP,  P 

R,  G , I ,  LF_ _ 

>,  T,  S,  U 
K,  W,  L,  BLANK 
H,  J,  M,  V 

9,  X,  ) 

(,  Y,  Z,  N 

0,  !>  j _ 


) 


) 

) 


4 


) 


) 

) 


\ 

1 

) 

) 


) 


3E04 
3E0  6 
3E08 
3E0A 
3E0.C 
3E0E 

3E10 

3E14 

3E18 

3E1C 

3E20 

3E24 

3E2  6 

3E2A 

3E2E 

3E32 

3E3  6 

3E38 

3E3A' 

3E3E 

3E42 

3E44 

3E48 

3E4C 

3E50 

3E54 

3E58 

3E5C 

3E60 

3E64 

3£b3 

3E6C 

3E7  0 

3E7  2 

3E7  6 

3E7  A 

3E7C 

3E7E 

3E8  0 

3E8  4 

3E8  6 

3E88 

3E8A 

3E8E 

3E9  0 

3E9  2 

3E94 

3E98 

3E9  A 

3E9C 

3E9E 

3EA0 

3EA2 

3EA4 

3EA6 

3EAA 

3EAE 

3EB2 


0000 

. .  . - . . 

0000 

0000 

. . . 

'  . . . . . . . .  . .  '  ' 

0000 

(Modified  by  ECT  for  use  by  surface  measurement  programs) 

0000 

0000 

(3EI0-3E6F)  = 

JUMP  TABLE  FOR  COMMANDS  (SEE  3CA4-3CBE) 

3D2C 

3D  18 

CR,  RO 

3D36 

3D  68 

SP,  P 

3D1  0 

3D42 

R,  G . .  . . J'  -  Amp!  ? +ude  density  function 

3D26 

3C8  A 

1 ,  LF  V  -  Autocorrelation  function 

3C8  0 

3300 

>,  T  H  -  Steps 

02  60 

S  0  -  Roughness 

33 1  0 

3B8  0 

U,  K  S  -  Cal i brat  ion 

3DC0 

3C4  6 

W,  L  Y  -  Wavelength 

3C9  6 

017E 

BLANK,  H  M  -  Mean  and  Standard  Deviation 

3800 

ODOO 

J ,  M  X  -  Clear  (1000-3000) 

ocoo 

V  Z  -  Plot  (1000-3000) 

0 19  E 

0 

3900 

3AD8 

x,  & .  . 

3C8  A 

3C8  A 

M 

OEOO 

Y 

39  18 

3C8  A 

Z,  N 

3C8  A 

3C3  A 

0,  ! 

3C8  A 

3C8  A 

* 

3C8  A 

3  C8  A 

3C8  A 

3C8  A 

3C8  A 

3C8A 

3C8  A 

3C8A 

3CS  A 

3C8  A 

3C8  A 

3C8  A 

3  C8  A 

3C2  A 

3C8  A 

3bSA 

0000 

4200 

0000 

4200 

0000 

0  000 

0000 

0000 

4300 

3  F60 

PRINT  ONE  CHARACTER  MOVED  TO  3F60,  JUMP  THERE 

0000 

0000 

( 3E8A-3E9A)  = 

READ  ONE  CHARACTER,  WAITS  FOR  DATA  AT  TTY,  PUTS  INPUT 

0000 

IN  RO 

C88  0 

00A4 

Waits  for  data  from  TTY,  puts  it  in  RO 

9EF8 

Unblock,  Road,  Disable 

9  DFS 

Sense  Status 

0888 

Check,  Status,  If  zero,  data  is  ready 

4230 

3E9  0 

Loop  if  not  .zero 

9BF0 

Read  data 

03  OB 

Exit 

0000 

0000 

0000 

(3EA4-3EC5)  = 

CONVERT  ASCII  BYTE  IN  RO  TO  HEX  IN  Rl 

0000 

08  10 

Input  byte  to  Rl 

C410 

0070 

Pick  of f  b 1 ts  9,  10,  II 

C510 

0040 

Are  they  1,0,0? 

4330 

3E3A 

If  so.  Letter  between  A  and  0,  BR 

08  10 

If  not,  its  a  number.  Bring  in  byte  again. 

3E84  C410  OOOF 
3E38  0303 
3EBA  08  1  0 
3E3C  CA10  0009 
3EC0  C410  OOOF 
3EC4  0303 
3EC 6  0000 
3EC8  08  10 
3ECA  CB10  0009 
3ECE  4220  3 EDA 
3ED2  C60Q  0030 
3ED6  08  10 
3ED8  0303 
3EDA  C61 0  OOCO 
3EDE  03 OB 
3EE0  C8F0  0001 
3EE4  93F0 
3EE6  C8F0  0002 
3EEAC400  0001 
3EEE  0303 
3EF0  0733 
3EF2  4030  3F20 
3EF6  08  02 
3EF8  C400  FOOO 
3EFC  CCOO  OOOC 
3F00  4130  3EC8 
3F04  08  01 
3F06  4130  3E3 0 
3F0A  08  03 
3F0C  C300  0006 
3F1 0  4310  3  F  1  E 
3F1 4  0A3F 
3F1 6  CD20  0004 
3F 1 A  4300  3EF6 
3Fi£  C330  3D9  4 
3F22  0303 
3F24  0000 
3F26  4030  3F3E 
3F2A  07CC 
3F2C  C8 DO  0001 
3F30  C8E0  0048 
3F34  4130  3E8  0 
3F38  Cl  CO  3  F34 
3F3C  C830  33DA 
3F40  0303 
3F42  0000 
3F44  40B0  3F5A 
3F48  C8  00  008 D 
3F4C  4180  3ES0 
3F50  C8  00  003 A 
3F54  4 1  BO  3E8 0 
3F58  C8B0  3D6C 
3F5C  030 3 
3F5E  0000 
3F60  C88  0  00 AS 
3F64  9EF3 
3F66  9 DF8 


Bits  12  thru  15  in  I.  This  Is  the  answer. 

Exit 

Letter.  Bring  in  byte  again 
Add  9  (Since  a  comes  in  as  "41") 

Bits  12  thru  15  in  I.  This  is  the  answer. 

Exit 

(3EC8-3EDF)  =  CONVERT  HEX  CHAR,  IN  RO  TO  ASCII  BYTE  IN  Rl 

. Pick  up  char,  put  in  I,  subtract  9 

If  neg,  number  between  0  and  9 
Append  ’BO1  to  make  ASCII 

Put  in  I  as  output. 

Exit 

Number  was  between  A  and  F.  Take  subtracted  value 

Append  ’CO'  and  exit 

’I'  to  F  (Panel  Dev. No.) 

Read  panel 
'2'  to  F 

Check  for  last  bit  zero  (Button  15)  sets  condition  code 
Exit 

*PR I  NT  HEX  HALFWORD*  Clear  3 
Save  return 

Pick  up  input  argument  from  2 

Strip  off  bits  0,  1 ,  2,  3 

Shift  right  12 

Hex-ASC II 

Resu I t  i n  0 

Print 

Get  3  i nto  0 

Subtract  6  (Count  Limit) 

If  exceeded,  exit 

Otherwise,  increment  3  by  2 

Shift  left  4  to  get  second  character 

Loop  back  to  print  more 

Restore  Return 

Exit 

(3F26-3F4 I )  =  LEADER  GENERATOR  FOR  TAPE  PUNCHING 

Store  return 
C I ea  r  C 
Put  'I'  in  D 
Put  1 48 *  in  E 

, _ Print  _ 

Loop  and  count 
Restore  return 
Exit  . 

(3F44-3F5D)  =  CARRIAGE  RETURN-LINE  FEED  SERVICE 

Save  return 

. Load  CR  _ 

Print 

Load  LF . . . . . . . 

Print 

Restore  Exit 
Exit 

(3F60-3FCF)  =  PRINT  I  CHARACTER  FROM  (RO) 

Unblock,  write,  disable 

_ Output  command _ _ _ 

Sense  status 


3F6C 
3F6E 
3F70 
3F72 
3F74 
3F7  6 
3F78 
3F7A 
3F7C 
3F7E 
3F8  0 
3F8  4 
3F8  6 
3F8  A 
3F8E 
3F92 
3F94 
3F98 
3F9A 
3F9C 
3F9E 
3FA0 
3FA4 
3FA8 
3  FA  A 
3FAC 
3FAE 
3FB2 
3FB  6 


9  AFO 
03  OB 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
C850 
01B5 
C500 
4230 
4 1  CO 
08  24 
41C0 
0799 
01B5 
0790 
9A39 
D202 
C 1 20 
0135 
079  0 
9  A39 
4300 
DEAO 
9DA3 


Write  data 
Exit 


( 3F80-3FBI )  =  BOOTSTRAP  LOADER  — '  READS  STARTING  "AND' FINAL  BYTE  ADDRESSES 
FROM  TAPE.  DOES  NOT  LOAD  HASHSUM  OR  FOLLOWING  BLANKS.  RETURNS  TO  MONITOR 
NOTE  THAT  »50’  LOADER  LEAVES ''I1  IN  3,  f2»  IN  A,  AND  ’94 »  IN  0079 


3F32 

OOFF 
3F84 
3  FC2 

3  FC2 


0000 
3  F9  A 


3CS0 

0079  *GET 


Address  .for  fetch  byte 
Get  A  byte 
Is  it  a  rubout? 

No.  Keep  looking 
Rubout  found.  Address  to  4 
4  to  2.  Starting  byte  address 
Final  byte  address  to  4 
Clear  9  for  hashsum 
Get  next  byte 
Include  in  hashsum 
Hashsum  to  Panel  Lights 
Store  byte  where  2  points 
Br.  on  index  <  or  = 

Get  hashsum 
Update  hashsum 
Hashsum  to  panel  lights 
To  monitor 

BYTE  FROM  TTY*  Output  command.  Block,  read,  disable 
Sense  status 


3FB3  0888 
3F3A  4230  3FB6 
3FBE  93 AO 
3FC0  0303 

3FC2  0135  *FETCH 

3FC4  0840 
3? 0  6  0040  0003 
3FOA  0135 

3FCC  9204 
3FCE  0300 
3FD0  3 FDO  3FD2 
3FD4  3FD4  3FD6 
3FD8  3FDS  3  FDA 
3 FDC  3FDC  3 FDE 
3FE0  3FE0  3FE2 
3FE4  3 FE4  3FE6 
3 FES  3FE8  3 FEA 
3FEC  3FEC  3  FEE 
3FF0  3FF0  3FF2 
3FF4  3 FF4  3FF6 
3FF8  3FF8  3FFA 
3FFC  3FFC  FFFF 
4000  0000 


Test 

Loop  unti I  data  ready 

Read  the  data 

Exit 

ADDRESS  INTO  R4*  Get  next  byte 
Put  it  in  4 

Shift  4  left  8.  Top  half  of  address 
Get  Next  byte.  Bottom  half  of  address 

Put  it  i n  4 
Exit 
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